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190 DECLARATIONS 

CNXSPRE CLEANUP = Cleanup Outstanding Messages before Disconnecting 
9 CNXSPOST_ CLEANUP = Cleanup Sure Lane ine Messages after Disconnecting 
625 FLUSH_WARMCDRPS = Flush warm CDRP cache 
+4 CLEANOP_CDRP = Routine to cleanup a CORP 
6 CHECK ASPI 


I 
- CORP 
yy - Complete outstanding 1/0 with failure status 
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SEND 
CNXSRCV_REJECT = Reject received message 


CNX$BLOCK-WRITE_IRP = Partner block write with IRP 
CNXSPARTNER_FINISH = Complete partner's end of a block transfer 
CNXSPARTNER RESPOND = Send block transfer beng.etes response 
CNXSALLOC_CDRP = Allocate a CDRP & Convert CSID 

7 CNXSALLOC_CDRP_ONLY = Allocate a CDRP 

8 CNXSALLOC_WARMCDRP = Allocate CDRP w/ RSPID and message buffer 
9 CNXSALLOC_WARMCDRP_CSB = Allocate warm CDRP using CSB 

0 CNXSINIT CDRP = Initialize a CORP 

8 CNXSDEALC_WARMCDRP_CSB ~ Deallocate a Warm CDRP using CSB 

2 CNXSDEALL_MSG_BUF_CSB - Deallocate a message buffer using a CSB 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY | TH THE TERMS OF SUCH Tint we Oh mS 


® 
w 
os 
eS 
2 
; | 
T NOT : | 
* 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * | 
e 
TRANSFERRED. r 
* | 
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * | 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * | 
CORPORATION. e | 
a 
> 
w 
® 
te 
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DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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| 

: FACILITY: EXECUTIVE, CLUSTER MANAGEMENT | 

; ABSTRACT: | 

; This module provides an acknowledged message service based on 

SCS for VAX/VMS Clusters. 

; ENVIRONMENT: VAX/VMS | 

; AUTHOR: Steve Beckhardt, CREATION DATE: 17-Aug-1982 | 
| 
| 
| 
| 
; 


; MODIFIED BY: 
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; V04-001 DWT0241 David W. Thiel 7-Sep-1984 

: Close window (which occurs when a connection” breaks) 
: in block transfer partner logic where the actual 

3 state is not properly anticipated. 


V03-022 DWT0236 David W. Thiel 10-Aug-1984 
Update use of RDTSL _MAXRD IDX to match reinterpretation 
of this field as thé maximum index rather than the 
od. of indices (maximum+1). 


vO3-021 DWT0234 David W. Thiel 7-Aug-1984 
Bugcheck on lost message detection. 


v03-020 DWT0227 David W. Thiel 24-Jul-1984 
Change warm CDRP cache Limit from 3 to 2. 
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v03-919 DWwT0215 David W. Thie 30-Apr-1984 
Correct missing value in CDRPSL_CDT field. 


V03-018 SRBO112 DWT0183 Steve Beckhardt / Dave Thiel 20-Mar-1984 
pap. ovented new SEND_MSG design e+ only one 
CDRP (other than block transfers) may be in a resource 
wait state at a time. This more rigorously preserves 
message eoquens tp) °° and as a by-product simplifies the 
cleanup code. This involves a major revision cf all of 
the logical involved in sending messages. 


V03-017 DWT0167 David W. Thiel 28-F eb-1984 
Use three-state dispatch on CDRPSB_CNXSTATE whereever 
this field is used instead of two-state dispatch. 
Return with SS$_NODELEAVE when a soasage is sent 
to a node in long_break state, rather than bugcheck. 
Bugcheck when a message buffer is returned for an 
undefined CSID, rather than sropeine the buffer. 
Delete routines CNXSDEALL_WARMCDRP and CNXS$DEALL_MSG_BUF . 


V03-016 DWT0182 David W. Thiel 28-F eb-1984 
Return error instead of bugchecking when a message 
is sent to a permanently broken connection. 


v03-015 ADE0002 Alan D. Eldridge 14-Feb-1984 
Initialize more CDRP fields when recycling. 

V03-014 ADE0001 Alan D. Eldridge 10-Jan-1984 
Add CSP to List of ACKMSG clients. 

v03-013 DWT0155 David W. Thiel 1=DEC-1983 
Send all SCS messages with an explicit size computed 


as the size of the largest message. Perform a few 
minor code cleanups. 


V03-012 DWT0134 David W. Thiel 5-0CT-1983 
Correct error patch in CNXS$SEND_MSG so that when an 
invalid CSID is given, the cleanup of the CDRP will 
BUGCHECK if a message buffer is present, rather than 
incorrectly attempting to deallocate the message buffer. 


v03-011 ROWO206 Ralph 0. Weber S-me- 1995 
cLeanue bugs found in a code review and testing of block 
ransfers: 


- A missing @ sign on a REMQUE in CLEANUP_PARTNERS. 

- Fix CNXSPARTNER_INIT_CSB to return address of message 
buffer in R2 as advertized. 

- Have CNXSPARTNER_INIT CSB correctly init CDRPSL_CDT before 
calling DEALL OC. SG_BUF. 

Fix numerous incorrect register usages in 

CNXSPARTNER_INIT CSB. 

- Fix incorrect MOVC3 byte count in CNX$PARTNER_INIT CSB. 

- Fix CNXSBLOCK_xxxxx to get CDT address into the CORP. 

- Fix CNXSRCV_MSG to save R3 when deallocating a BIX. 

- Correct numerous Sypograpatcat errors in the comments. 

~- Fix CNXSPARTNER_RESPOND to use a unique BIX field to save 
the caller's return PC. The new field is added to the BIxX 
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by ROWO214. It is required to properly handle connection 
failure while the response message is being sent. 


v03-010 BLS0233 Benn Schreiber 7-Aug-1983 
Fix truncation error in CNX$BLOCK_READ_IRP. 


V93-009 ROW0195 Rolph 0. Weber 27-JUL-1983 
Add CNXSPARTNER_RESPOND which responds to a block transfer 
request, thus closing out a block transfer operation, but 
cosuras centres to the caller after the response message has 

een sent. 


v03-008 ROW0193 Ralph 0. Weber 28-JUN-1983 
Correct calling sequence for CNX$SEND_MSG_CSB in 
CNXSSEND_MNY_MSGS. Cause CNXSINIT_CDORP, CNXSALLOC_CDRP, and 
CNXSALLOC_CDRP_ONLY to initialize CORPSB_FIPL to IPL$_S¢s. 


v03-007 ROW0191 Ralph 0. Weber 14-JUN-1983 
Add dispatching for GETLKI. Add paranoia checks to broken- 
connection cleanup. Fix CNX$ALLOC_CDRP to return SS$_INSFMEM 
Like the comments say it does. 


v03-006 ROW0185 Ralph 0. Weber 24-APR-1983 
Add block transfer support including the following routines: 
- CNXSBLOCK_XFER to initiate a block transfer 
- CNXSBLOCK_XFER_IRP to initiate a block transfer with a 


CDORP/IRP ny : 

- CNXSPARTNER_INIT_CSB to initialize partner portion of a 
block transfer 

- CNXSPARTNER_FINISH to complete partner portion of a block 


transfer 
- CNXSBLOCK_READ, CNXSBLOCK_WRITE, CNXSBLOCK_READ_IRP, and 
CNXSBLOCK-WRITE_IRP to actual ly do partner block transfers 
- CLEANUP_PARTNERS and CALL_PARTNER_ERROR to handle broken 
connection recovery on partner nodes 
Seer eee CNXSSEND_MNY_MSGS to not send message to the local 
node. 


v03-005 ROwW0183 Ralph 0. Weber 18-APR-1983 
Change CNXSCLEANUP, CNXSFAIL_MSG, CNXSRESEND_MSGS, and other 
assorted routines to use SCS lookup threads routines. This 
should reduce time spent on the send message path but increase 
time spent in failed virtual circuit cleanup. 


v03-004 ROW0179 Ralph 0. Weber 5-APR-1983 
- Add support for use of CSIDs as input to CNXSSEND_MSG. 
~ Change inconing new message dispatching to a two Tevel 
spatch. 
- Setup internal allocation of a CDRP for new incoming 


messages. 
- Change CNXSDEALL_WARMCDRP to use RECYCL_RSPID. 
Add CNXSSEND_MNY_MSGS. 
- Cause the sent and received message counters to be 
incremented. 
Change CNXSALLOC_WARMCDRP and CNXSALLOC_CDRP to use | 
CSID input. Add CNXSALLOC_WARMCDRP_CSB. 
Add CNXSALLOC_CDRP_ONLY and CNXSINIT_CDRP. 
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~ Add CNXSSEND_MSG_CSB, CNXSDEALL WARMCDRP_CSB, 
CNXSDEALL_MSG_BUF, and CNXSDEALC_MSG_BUF-CSB. 


v03-003 SRBO074 steve Beckhardt 27-Mar-1983 
Fixed bug involving resuming a thread whose CDRP 
was on a resource wait queue when the connection broke. 


v03-002 DWT0083 David W. Thiel 7 Mar-1983 
poe ace HALTS with generic connection manager 
BUG_CHECKs. 

v03-001 DwT0070 David W. Thiel 17-Feb-1983 


Spl } this module out of CNXMAN as part of a general 
rewrite and reorganization of that module. 
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.SBTTL DECLARATIONS 
: INCLUDE FILES: 


. 
. 
. 
. ; 
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SCORPDEF ; CORP Offsets 
SCDTDEF ; COT Offsets 
SCLSMSGDEF ; Cluster message offsets 
SCLUBDEF ; Cluster block 
SCLUBTXDEF ; Cluster block-xfer CDRP extension 
SCSBDEF ; CSB Offsets 
SDYNDEF ; Data structure type codes 
SIPLDEF s IP 
SIRPDEF s if 
SPBDEF 3; PB 
SPOTDEF ; PDT Offsets 
SRODEF ; RO offsets 
SROTDEF ; ROT offsets 
SSSDEF ; System return codes 
3; MACROS: 


MACRO: FAC_POOL 


This macro creates the list of allocated pool sizes -- one for each 
facility -- which is used when an unsolicited message arrives. 


.MACRO FAC_POOL LIST 


.MACRO ONE_FAC_POOL, FAC, SIZE 
=S$FIRST+CCSMSGSK_FAC_'FAC* 
BYTE SIZE 


TIIF GT. .=$$BIGEST, S$SBIGEST=. 
[ENDM ONE_FAC_POOL 
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ITEM, ais! 


B 
t 
L definitions 
0 request packet offsets 
Offsets 
T 
T 
s 
- IRP > 
ONE FAC_POOL ITEM 
.ENBR 


.=SSBIGEST 
.ENDM — FAC_POOL 
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t EQUATED SYMBOLS: 


MAXWARMCDRPS = 2 ; Maximum number of CDRPs to cache 
; on CSB free List 


00000002 
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| 
; NOTE: The following assumptions are in effect for this entire module. 


| nneneneorornceceonsceseseneneuseseseenesseesceeenesoneecoqssoecooeoeses 
ASSUME IPLS_SYNCH FQ IPL$_SCS 

- DEFAULT DISPLACEMENT , WORD 

-PSECT $$$100,LONG 


ITIP STITT it titi iii iii iiiitiiiitiiiiiitiiitiiiiiiiiity 
DESIGN NOTES: 


The key to understanding this entire module is the esrotegy for hoop ine 
track of CDRPs and for cleaning up CDRPs when connections break. This 
is the result of the design of SCS and of the mainline paths through 
this module that opt for simplicity and efficiency of the mainline paths 
at the expense of a complicted failure cleanup and recovery. 


3 The cells CSBSL_RESENDQFL and CSBS$L_RESENDQBL form the resend List (a 

2 List of all CORPs pending transmission). This List is organized as 

; a single Linked List with a pointer to the Last element in the List 

3 (essentially a FIFO). CSBSL_RESENDQFL contains the address of the 

3 first member of the list or zero, if the List is empty. CSBSL_RESENDQBL 
3 contains the address of the last member of the List or the address of 


o 

o 

So 

o 
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CSBSL_RESENDQFL, if the List is empty. This structure is used instead 
of VAX queues because improved performance can be achieved in critical 
code paths. The List is organized so that new messages are added to 
the end and the message to be sent next is taken from the front. 
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8 Stejlerty. the cells CSBSL_SENTQFL and CSBSL_SENTQBL form the sent List, 
, a list of all CDRPs that have been transmitted but not yet acknowledged. 
00 1 FARRAR AAA AERA AAA AA RATA eee eee Kee ee Aee teeter eeeeee 
00 2 
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-SBTTL CNXSPRE_CLEANUP = Cleanup Outstanding Messages before Disconnecting 
p++ 
8 ; FUNCTIONAL DESCRIPTION: | 
8 0; This routine is called by SCS when a connection breaks, before 
8 91; a DISCONNECT is done. e connection must be open when this | 
bo 3 ; routine is called. 
0 94 : oe Y stated, this routines finds all CDRPs that are in various stages | 
8 2 ; eing sent and puts them on the CSB resend List. 
06 $7 CALLING SEQUENCE: 
00 3 ; JSB CNXSPRE_CL LEAN 
88 + ; TPL is at SCS fork ~~ (8) 
909 08 : INPUT PARAMETERS: 
9000 04 ; RS Address of CSB 
9009 06 ; IMPLICIT INPUTS: 
ee 
0000 310 : OUTPUT PARAMETERS: 
0000 11; 
44 \¢ : None 
$000 14 : IMPLICIT OUTPUTS: 
0000 15 3 
000 319: name 
00 18 : SIDE EFFECTS: 
B88 0; RO-R4 destroyed 
4 1. 
0000 338° 
090 : CNXSPRE_CLEANUP: : 
56 OD 00 § PUSHL R6 ; Save a register. 
56 55 00 MOVL R5, R6 : Copy ¢sB address. 
Op Ss ; At this time, the CDRPs to be cleaned up are in the following states: 
0 1 : 1) In critical section aemneston. for eerie, MSGBUF, or MAP with 
§ ; CNXSTATE = NORMAL, REQUESTOR, or PARTNER. Only in n she 
3 REQUESTOR and OnAAL | RE states can the resource be 
4; Resources that may be held are RSPID and MSGBUF, os in fhe 
$3 case of REQUESTORS and PARTNERs, MAP. These messages gil 
§ n have non-zero sequence numbers, except for PARTNERS which 
s have zero sequence numbers. 
§ : 2) On the resend List with CNXSTATE = NORMAL, REQUESTOR, or 
40 ; PARTNER. The resources that may be held are RSPID, and in 
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RE_CLEANUP = Cleanup Outstanding Me 


CNX SEP-19 SYSLOA.SRCJACKMSG.MAR; 2 
the latter two cases, MAP. These are messages awaiting 
transmission or retransmission. These messages all have 
non-zero sequence numbers, except for PARTNERS which have 
zero sequence numbers. 


On sent List with CNXSTATE = NORMAL or REQUESTOR. The only 
resource that may be held is RSPID. These are messages 
awaiting acknowledgement. 


3 


~~ 


4 


~" 


Linked to the RDT and not _in any of the above states. 

CNXSTATE = NORMAL. REQUESTOR, or PARTNER. In the NORMAL state, 
the only resource that may be held is RSPID. In the Latter 
cases, the resources RSPID and MAP are held. These messages 
have been ocaneuspagee but have not yet been responded to. 
These messages all have zero sequence numbers. 


5) Linked to the PARTNER queue with CNXSTATE = REQ_MAP or PART_MAP. 
These CORPs are awaiting mapping resources outside of the 
critical section and are on this queue only to provide a way 
of finding these CDRPs. Resources help may include RSPID and 
MSGBUF in the case of REQ_MAP. 


6) Linked to the PARTNER queue with CNXSTATE = PART_IDLE. This is 
an inactive partner thread that holds no resources. 


The purpose of this routine is to build a RESEND List containing a CDRPs that 
may need to be resent or cleaned WP. except for PARTNERs, PART_IDLEs, and 
PART_MAPs which will always be failed and which are found via fhe PARTNER 
queue. The resulting RESEND List will contain (in this order): 


and should never be resent. CNXSTATE = NORMAL or REQUESTOR. PARTN 
block transfer requests are also in this category, are never 
acknowledged, and never resent. 
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a) CORPs with sequence number = 0. These messages have been geknay\ edoed 


b) CORPs with sequence number non-zero. These messages may have been 
sent and may have been received; their disposition will be sorted 
out when and if the connection is reestablished. 
55 34 A6 0° 7 MOVL C598. CURRCBAP (AG) .RS ; Get current CDRP, if any 
2 1 0 7 BGEQ $ ; Don't have one 
55 65 OF Bee REMQUE CORP EL .FOFL IRS) WAS ; Remove it from resource wait queue 
Fe 8 3 . 1 MOVL R6,R ; Set up CSB address 
017 1 ; BSBW © CLEANUP_ CDRP : Clean out RSPID and message buffer 
6 C 14 CLRQ CORPSL_FQFL(RS) ; Clean out queue Linkage 
0 a dO 4 MOVL EDAD SL SAYERS IAS) -= 3; Move saved PC to be fork PC so that 
CA 1 5 CDRPSL_FPC(RS) ;_ thread is resumed correctly on error 
aie § DISPATCH CDRP$B_CNXSTATE (RS) , TYPE=B, PREF IX=CDRPSK_, 
18 8 <NORMAL ,10$>, = ; Normal message, Link to resend List 
18 <REQUESTOR,10$>, - 3; Block transfer requestor, Link to resend | 
H + <PARTNER, 108>, - ; Block transfer partner, (ink to resend Lis 
é 3 BUG_CHECK CNXMGRERR,FATAL ; Invalid CDRP state 
65 1 A6 00 A 94 108: MOVL csee, RESENDQFL(R6), - ; Insert at head of RESEND List 
— 395 RPSC_FQFL(RS) 
04 «12 3 38 BNEQ ; Branch if not only element in List 
20 A6 «=665~—CCéOE 9 MOVAL CDRPSL_FQFL(RS), - ; Make tail of List 
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CSB$ RE SENOS (R6) 
20S: MOVAL CORPSE, Fa GFL) ; Update head pointer 


RES 
30$: MOVL etd: CSBSL SEURRCDRPLRE) ; Indicate no current CDRP, block activity 
; Cleanup warm CORPs 


MOVL R6,R3 3; Move CSB address 
BSBW FLUSH_WARMCDRPS 


V04~001 


re 
na 
oOo 


CNXEPRE™ 


me 


AWAAAAANw st 


; Remove elements one-by-one from the head of the RESEND | 


H ist. 
3 If the sequence number is nenesere, add to tail of SENT tse 
: i 


—DOOOOOOCOCOCOCOWNO ca 


PB OOD NIP AE WIN 9 OD NAME WIN  O OD NAN EWP O OD NAME WIN  OOONOU EW OO 


; If the sequence number is zero, add to the head of SENT List. 
: Finally, move SENT List to RESEND List, initialize SENT List, 
- 0 40$: MOVL csBst_ RESENDQFL(R6),RS ; Get first element in RESEND List 
f 1 BEQL ; Branch if RESEND List is e ey 
1C AB 6 dO MOVL CORPSL_FQFL(RS), = Set new first element in RE Eko list 
BSL _RESENDOQFL(R6) 
05 12 BNEQ : Branch if List not empty 
20 AB =1C AB ODE MOVAL CSBSL_RESENDQFL(R6), - ; Reinitialize tail pointer 
CSBSL~RESENDQBL (R6) 
54 a5 BS 50$: TSTW CORPS. SENDSEQNM(RS5) 3 Is sequence number non-zero? 
7. BNEQ ; Branch if non-zero sequence number 


: Add to head of SENT 


65 14 A6 00 MOVL csest SEuTOrL {n6), - ; Link to front of SENTQ 
06 12 BNEQ ; Branch if not first element in List 
18 A6 65 DE MOVAL CORPSL_FQFL(RS) ; 
SBS$L_SENTOBL (R64) 
14 A6 65 _~=ODE 60$: MOVAL coneet FQFL(RS), = ; Set new head pointer for SENTQ 
CSB$L_SENTOFL (RO) 


OOOO OCCOCOCCOOSCOOOCSOSOSOOOOOOOOOOOOOOOOOOO 


SNAP AAA AA AAA AA MINIT ES PPE LLL LLL LEE 


: Add to tail of SENTQ 


DoOOOOOOOOOSOSOSOOOSOOOOOOOCOOOOSOOOOOOOOOO 
Oooooo 


PHD COC COCO CODA APPIN OH OH COCO OO A- AWM OO COP PIP IMIMPIMIMNINI MOOOOWOLDL & Lat 


- ; Set up SENTQ tail pointer 


65 D4 70$: CLRL = CORP SL -FOFL(RS) ; lero list pointer 
18 B6 «4665~—CODE MOVAL CDRPSL-FQFL(RS), - ; Link to tail of List 
acsBse ~SENTOB (R6) 
18 A6 «665~—COE MOVAL CORPSL, FQFL(R5), = ; Update tail pointer 


¢SBSL_ SENTOBL (RO) 


cE 11 BRB 
74 80$: 
74 + Reve SENTQ to RESENDQ 
5 > Note that RESEND List is empty. 
10 A6 «614 AB 00 74 MOVL CSBSL_SENTQFL(R6) :; Copy head pointer | 
794 SBSL- “RESENDOFL (RO) | 
fe 79 BEQL ; Branch if List is empty | 
20 A6 «618 AB OD 4 MOVL CSBSL_SENTQBL (R6) ; Copy tail pointer 
4 CSBSL~RESENDOBL (RO) 
455 90$: 3 
4 ; Make SENTQ empty 
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- Acknowledged Message Services i mee DS 00:44:58 
CNXSPRE_ CLEANUP = Cleanup Outstanding Me 7=SEP-1984 17:13: 


; Scan the PARTNER 


3; Clean 


4108: 


120$: 


130$: 


AX/VMS Macro v04-00 
SYSLOA.SRCJACKMSG.MAR; 2 


$L_SENTQF 
$L-SENTO 


; 3; Zero head pointer 
CSBSL_SENTOB 


L(R6) 
L(R6), = i; Initialize tail pointer 
L(R6) 

ueue to: 


0: 
a) Remove MAP waiters from their queues and clean them up. 
b) Put idle partners onto the RESEND List. 


— > met paced tg ; Address of BIX queue header 
MOVL (RE) RS ; Next element of BITX queue 
CMPL =—soR3 RA ; End of List? 
BEQL 140$ ; Branch when scan is done 
MOVL CLUBTX$L_CDRP(R4) ,R5 ;_ CDRP address 
DISPATCH CORPSB_CNXSTATE (RS) , TYPE=B, PREF IX=CDRPSK_, * 
<REQ_MAP,110$>, - ; Fail map waiters 
<PART_IDLE,120$>, - ; Link to head of RESEND List 
<PART-MAP,110$>, = ; Fail map waiters 
<PARTRER, 1008>, - ; Ignore partners - on other Lists 
BUG_CHECK CNXMGRERR,FATAL ; Invalid CDRP state 


up map waiters 


REMQUE CDRPSL_FOQFL(RS),R5 
CLRQ CDRPSL~FQFL(RS) 
MOVL  R7,R3 

BSBW  CLEANUP_CDRP 


; Have a CDRP waiting for mapping resources that must be failed. 
; Inputs to fork process are: 


; Remove it from map resource wait queue 
; Clean out Linkage 

; Set up CSB address 

; Clean up RSPID and message buffer 


; RO contains 0 (failure) 

: R3 Address of CSB 

: RG Address of PDT 

: R5 Address of CDRP 

; Fork routine may use RO - R5. 

PUSHR #*M<R3,R4> ; Save registers 

OVL CSBSL_PDT(R3) ,R4 ; PDT address 

CLRL R ; Set failure status 

JSB @CDORPSL_FPC(RS) ; Resume fork process 

POPR #*M<R3,R4> ; Restore registers 

BRB ; Continue processing 

CLRW CORPSW_SENDSEQNM(R5) ; Clean out sequence number (just in case) 

MOVL eeest RESENDQFL(R6), - ; Put at front of RESEND List 
rORP C_FQFL(RS) 

BNEQ 0$ ; Branch if not first in List 

MOVAL CDRPSL_FQFL(RS) ; Update back pointer 
C BSL RESENDOBL (R6) 

MOVAL CORPSC_FQFL(RS), - ; Update List head pointer 

NDOQFL (R6) 


aro PEE 


ACKMSG = Acknowled Message Service SEP=1984 00:21: AX/VMS Macro V04-00 Page 11 
yoon01 CNX PRE CLEA P- tleanup 0 vices ne Me * -S$ eats 90:44:59 SYSLOA.SRCJACKMSG.MAR; 2 . (3) 
009 § 40s: 
d9 4; 
009 5 3 bgsete and  pretts onto the resend List CDRPs left in the RDT with sequence numbers 
00D9 § ; of zero (these are messages Enee have been acknowledged and may have CNXSTATE = 
44 4 : NORMAL, REQUESTOR, or PARTNER) 
0009 9° ASSUME <CSBSL_CDT+4>, EQ, CSBSL_PDT 
0009 0 MOVQ CSBSL_CDT(R6) ,R3 ; Restore CDT and PDT address 
it 1 SCAN_RDT act ion=MERGE. CDRP 
O0E8 : MOVL R6, R5 ; Restore CSB address in R5. 
OOEB 4 POPL R6 ; Restore saved R6. 
OQOEE 5 RSB 
OOEF 6 
OOEF 7 


2 ead 


vOo~001 


- Acknowledged Message Services 


CNXSPOST_CLEANUP = Cleanup Outstanding M 


+ 
+ 


JSB 


RS 


None 


None 


None 
SIDE EFFECTS: 


Pete Se Ge Ge Ge Ge Ge Se Oe Ge Ge Ge Be Se Se Ge Ge Se Se Se Ge Se Se Se Be Ge Ge Se Se Se Se Se Se 
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MEW O OO NOU EWN 0 OD NAMES WN OOD NOU EWN 0 OO NOU EWN ("OOO NOUESWN-O”0 


GOOD CO 09000 NN IDS DED DDD DS DS TTT BB BS 


ahah ah ah 4h db db dh dh hh Ab ah dh db dh ah dh ah ah eh ah eh db ah dh al 


7D mova 
D4 CLRL 
DO MOVL 
00 : MOVL 
1 BEQL 
Hh Bie 7p tos: gout 
B5 TSTW 
if BNEQ 
8 MOVW 
11 A BRB 
me Sige em: acy 
1 


IPL is at SCS fo 
INPUT PARAMETERS: 


dD 6 
1 


FUNCTIONAL DESCRIPTION: 
This routine is called by SCS when a connection breaks, after 
a DISCONNECT has completed. 
The major purpose of this routine is to deallocate map resources. 


CALLING SEQUENCE: 


CNXSPOST_CLEANUP 
rk level (8) 


Address of CSB 


IMPLICIT INPUTS: 


OUTPUT PARAMETERS: 


IMPLICIT OUTPUTS: 


RO-R4 destroyed 


CNX$POST_CLEANUP: : 


R6,~(SP) 
R7 
R5, R6 


CSBSL_RESENDOFL(R6) ,R5 
CORPSU_SENDSEQNM(RS) ,RO 


FiSEp=198e 19:55:92 ESYSLOR. SREDRCKRSG-MAR: 2 


-SBTTL CNXSPOST_CLEANUP = Cleanup Outstanding Messages after Disconnecting 


Save some registers. 


; Sequence number checker 


Copy CSB address. 


: Scan resend List, unmapping REQUESTORs and PARTNERS 


First CDRP in List 

Branch when done 

Sequence number 

Branch if zero 

Send a real sequence number yet? 


; Branch if yes 


Use the first 


| expected sequence number 
Avoid sequence number 0 


Page 12 
° (4 


) 


—-— 


| 


ACI 
vou 


+ ae + ries T's bb hd yt Boesage Services dee 19-50-13 4 00:44:59 AX/VMS Macro v04-00 Page 


POST_CLEANUP = Cleanup Outstanding M SEP=-1984 SYSLOA. SRCJACKMSG.MAR; 2 
54 AS 3, e} 110 § 30$: CMPW R7,CDRPSW_SENDSEQNM(RS) ; Check ordering 
4 114 QL 4 ; Branch if as expected 
138 § BUG_ CHECK CNXMGRERR,FATAL ; Mis-ordered RESEND List 
134 a 40$: OTSPATCH CORPSB_CNXSTATE(RS),TYPE=B,PREFIX=CDRPSK_, - 
11A 35 <NORMAL ,60$>, - 
11a 59 <REQUESTOR, 56$>, - 
11a 594 <PARTNER,45$>, = 
OIA 99 <PART IDLE ,608>, - 
a . $3 BUG_CHECK CNXMGRERR,FATAL ; Invalid CDRP state 
Oc AS SO AS DO 0128 99 45$: MOVL CORP SL .BAVEDE (RS), - ; Fix resumption address for 
0130 600 CDRPSL_FPC(RS) ; block transfers that were in progress 
22 45 B85 0130 601 TSTW DRPSL_RSPID+2(R5) ; Is there a RSPID allocated? 
OA 13 0133 one BEQL 0$ ; Branch if no 
4 5 60 DEALLOC_RSPID ; Deallocate RSPID 
20 AS 01 DO 0138 604 MOVL #1, CORPSL_RSPID(RS) ; Indicate that a RSPID will be needed. 
O13F 605 50S: ASSUME CSBSL_PDT,£Q,<CSBSi_CDT+4> 
53 0C A6 7D O13F 606 MOVO  CSBSLICDT(R6S,.R3 ; Fetch CDT, PDT addresses 
0143 607 UNMAP ; Deallocate mapping resources 
24 A5 D4 0146 608 608: CLRL CDRPSL_CDT(R5) ; Clean out obsolete CDT address 
55 65 00 0149 609 MOVL CORPSL_FQFL(RS) ,R5 ; Link to next CDRP 
AF 12 pee oY BNEQ 10$ ; Continue scan 
57 83 014E ol¢ 70$: TSTW R7 3; Were ony sequence numbers found? 
06 13 0150 61 BEQL 80$ ; Branch if no 
2C A6 «657 OBI SCO0152 Ss 614 CMPW R7,CSBSW_SENDSEQNM(R6) ; Must match Last used number 
OA 12 0196 615 saa BNEQ 90$ : Branch on mismatch 
32 AG 94 6188 617 : CLRB CSBSB_UNACKEDMSGS(R6)~—; BY definition, no messages need ACKs 
55 56 D0 0158 618 MOVL R6,R ; CSB Address 
7 8 fe 8I3e $619 mMOVQ (SP)+,R6 ; Restore R6 and R7 
of BS Bag Sam 
B1o¢ ose 90$: BUG_CHECK CNXMGRERR,FATAL ; Sequence number error 


ACKMSG = Acknowledged 
Vo0- 001 FLUSH. WARMCDRPS 
16 5 
iss 

199 6 
16 6 3 

166 6 
166 630 
199 631 
16 6 ¢ 

166 6 
8198 634 
166 635 
b1ge 6 § 

166 6 
0166 638 
0166 639 
0166 640 
0166 641 
0166 otg 

0166 64 
0166 644 
0166 645 

0166 64 

0166 64 
0166 648 
0166 649 
0166 650 
0166 651 
0166 636 

28 BB 0166 65 
55 24683 OF 0168 654 
0c 1p 016C £655 
42 A353. 97 O16E 656 
52 1C AS 88 0171 657 
0816 0 0175 658 
EE 11 0178 £659 
017A 660 
42 A3. 95 O17A 661 
03 12 #0170 66 

28 =6=BA HEA 66 
05 0181 664 

0182 
0182 


of 


; FUNCTIONAL DESCRIPTION 
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at 9 90:43:39 AX/VMS Macro V04-00 Page 


es 1§- 
ush warm CORP cache -SEP-19 
~SBTTL FLUSH _WARMCDRPS = Flush warm CDRP cache 


CALLING SEQUENCE: 


0 
S 


FLU 


10$: 


20$: 


80$: 


UTPUTS: 
NONE 
IDE EFFECTS: 


BSBW FLUSH_WARMCDRPS 
IPL must be af IPL$_SCS 


: INPUTS: 


R3 Address of CSB 


»R5> 
i” WARMCDRPOFL(R3), 


DECB CSB$B_WARMCDRPS(R3) 


D MSG_BUF (R5) ,R2 
BSBW DEALLOC_WARACDRP 


TSTB 4 a setacentinctess 


SH_WARMCDRPS: 
PUSHR #*M<R3 
REMQUE acsBs 
BVS 
MOVL corPSsC 
BRE 
BNEQ 
POPR #*M<R3,R5> 
RSB 
BUG_CHECK 


CNXMGRERR, FATAL 


SYSLOA.SRCJACKMSG.MAR; 2 


This routine is called to deallocate all resources from all 
all CORPs in the warm CDRP cache. 
resources may resume other threads. 


Note that deallocating 


Note that other threads may be resumed as we deallocate resources. 
RO = R2 destroyed. 


RS ; Get the next warm CDRP. 


; Branch if no warm CDRPs left. 
; Adjust count 


Message buffer address 


; Deallocate warm CDRP 
; Loop till no more warm CDRPs. 


Make sure count is correct 
Error! 


; Warm CDRP count and queue disagree 


d Message Services 
= Routine to cleanup a CDRP 
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-SBTTL CLEANUP_CDRP = Routine to cleanup a CDRP 


FUNCTIONAL DESCRIPTION: 


This routine is called when SCS resources held by the CDRP must 
be deallocated. 


INPUTS: 


Ri CSB address 
R CORP address 


IMPLICIT INPUTS: 


It is assumed that the input CDRP makes no use of the CDRPSL_RWCPTR. 
That field is ignored. 


OUTPUTS: 
None. 
SIDE EFFECTS: 


SCS resources held by input CDRP are deallocated. This may cause 
other threads to begin executing. 


RO,R1,R2 are destroyed. 


CLEANUP _CDRP: 


PUSHR #*M<R3,R4> ; Save registers 
CMPB #DYNSC_CD ; Is this a CDRP structure? 


RP, - 
CDRPS$B_CD_TYPE(RS) 

BNEQ 900$ ; Branch if not a CDRP (very bad). 

ASeUne <CSBSL_CDT+4> EQ CSBSL_PDT 


OV CSB$L_COT(R3) ; CDT address, PDT address 
TSTW CORPSC_RSP1D+2(R5) : Holding a RSPID? 
BEQL :; Branch if not holding a RSPID. 
BSBB CHECK_RSPID : Check for valid RSPID. 
DEALLOC_RSP ; Deallocate the RSPID. 
408 OVL #1, CORPSL_RSPID(RS) ; Indicate that a RSPID will be needed. 
TSTL CORPSL_MSG_BUF (R5) : Is a message buffer held by CDRP? 
BEQL 50$ ; Branch if no message buffer held. 
TSTL R4 i; Is PDT defined? 
BEQL 800$ :; Branch if no 
50s DEALLOC_MSG_BUF ; Deallocate the message buffer. 
OESPATEA CDRPSB_CNXSTATE(RS) , TYPE=B,PREFIX=CDRPSK_, - 
<NORMAL ,70$>, - ; Normal messages 
<PARTNER,60$>, = ; Block transfer partners 


<REQUESTOR ,606>, - ; Block transfer requestors 
BUG_CHECK CNXMGRERR,FATAL ; Unexpected CDRP state 


za 


H 6 
ssage Services 16-SEP-1984 00:21: AX/VMS Macro V04-00 
out tke to cleanup a CDRP mies 7 90:44:88 SYSLOA.SRCJACKMSG.MAR;2 


PDT still defined? 
Branch if not 

Release buffer handle 
; Restore registers 


TSTL R4 

BEQL 70$ 
UNMAP 

0$: POPR #*M<R3,R4> 
RSB 


800$: BUG_CHECK CNXMGRERR,FATAL ; Can't deallocate resource 
900$: BUG_CHECK CNXMGRERR,FATAL ; Data structure not a CDRP. 


AOOOOOOOoW®W 
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Yoon 061 CHECK RSPID == Validate RSPID in given CD ore er 8 4 90:43:59 EEYSLOA. SREJACKMSG MAR: 2 . (7) 
1 tt ~SBTTL CHECK_RSPID = Validate RSPID in given CDRP 
1D ; 
1° 133 ; FUNCTIONAL DESCRIPTION: 
1D 741 ; This routine validates the RSPID in the CDRP whose address is in RS. 
1D ou) 5 If the RSPID in the CDRP cannot be located in the RDT or if the RDT 
1D 743 ; entry associated with the RSPID points to something other that in 
1. ye : given CORP, the system is bugchecked. 
1D re ; INPUTS: 
1D i 3 
1D 48 ; R5 Address of a CDRP 
1D 749 ; 
i £29 3; IMPLICIT INPUTS: 
gib8 23 3 CORPSL_RSPID(RS) a RSPID 
10% 753; The ROT. 
1D 754 ; 
100 6755 ; 
01D0 £38 3 
01D0 757; 
01D0 758; 
B18 759 ; IMPLICIT OUTPUTS: 
100 760; 
Q1D0 §= 761 ; RO and R1 destroyed. 
3108 P66 3 ALL other registers preserved. 
ae 763 ; 
1D0 764 ; SIDE EFFECTS: 
3108 765 ; 
108 766 ; System is bugchecked if error is located in RSPID. 
01D 767 ;-- 
0100 768 
01D0 a4 CHECK_RSPID: 
8108 770 
55 odd 0100 771 PUSHL R5 ; Save input CDRP address. 
55 20 AS DO 01D2 re MOVL CORPSL_RSPID(RS), RS ; Get RSPID. 
01D6 =77 FIND_RSPID_RDTE ; Locate RDTE for this RSPID. 
09 50 €9 O1DC 774 BLBC ; Branch if lookup failed. 
6€ 65 D1 ODF 775 CMPL RD$L_CDRP(RS), (SP) ; Is the CDRP address right. 
9 1 1E2 £76 BNEQ 900$ ; Branch if address is wrong. 
5 BED 164 77 POPL R5 ; Restore CORP address. 
0 Bee 4h ; Return to caller. 
gies 780 900$: BUG_CHECK CNXMGRERR,FATAL ; RSPID is wrong. 


OUTPUTS: 
None. 
| 
| 
| 
| 


J 6 
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IMPLICIT INPUTS: 


CDT$L_AUXSTRUC(R3) CSB address (we could use R6, but that would assume 
that the SCS lookup routines do not corrupt it). 


} 
| 
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voor 001 MERGE _CDRP : Scan action routine to merg 7$eE 382 99:44:59 SYSLOA.SRCJACKMSG.MAR; 2 ° a) 
Is § om ~SBTTL MERGE_CORP = Scan action routine to merge a CDRP 
784 
4 5 ; FUNCTIONAL DESCRIPTION: 
7 $ This action routine is gal tee when a CDRP thread is located in the RDT | 
7 . after all other processing has been Sonpteced. This routine finds CDORPs 
7 that have been acknowledged and are no longer on the SENT List as well 
790 as CDORPs that have not yet been ackowledged and are still on the SENT 
791 List. Acknowledged CDRPs can be identified by fact that they have a 
138 zero send seqvence number. Acknowledged CDRPs are inserted onto the 
79 head of the RESEND List in no particular order. Note that block 
794 transfer requests always look as though they have been acknowledged 
£3? and are never on the SENT List. 
130 INPUTS: 
79 R3 COT address 
RG PDT address 
R5 located CDRP address 


The input CDRP is assumed to be on the SENT List if the sequence number 
is non-zero and on no List or queue if the sequence number is zero. 


transmitted to a remote node and must be retained for future 
identification of the response from that node. 


It is assumed that the input CDRP makes no use of the CDRPSL_RWCPTR. 
That field is ignored. 
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It is assumed that the RSPID held by this located CDRP has been 
OUTPUTS: 

None. 

: IMPLICIT OUTPUTS: | 

1 If the sequence number is zero, indicating a CDRP not on the SENT List, | 

H the input CORP is inserted at the head of the CSB resend List. | 

! SIDE EFFECTS: 

1 None. 

: — 

MERGE _CDRP: | 

OA AS 39 91 Q1 CMPB #DYNSC_CDRP, - ; Is this a CDRP structure? 

1 DRP$B-CD_TYPE(RS) | 
2E \s 1 BNEQ 00$ ; Branch if not a CDRP (very bad). 
dc C1 : BSBB CHECK_RSPID ; Validate the RSPID. 


BSL RE Senpagt (RZ) 
0S: MOVAL COR C_FQFL(RS) ; Set up new head pointer 
05 CSBS$L  RESENDOFL (R2) 


ACKM = Acknowledged Message Services 16-SEP-1984 AX/VMS Macro V04-00 Page 
Voor 061 MERGE _CDRP ” Scan action rout ne to merg $: SEp=1 984 99: #4 38 SYSLOA.SRCJACKMSG.MAR; 2 . 
19 7? DISPATCH CDORPSB_CNXSTATE(RS),TYPE=B,PREFIX=CDRPSK_, - 
1F4 rk <NORMAL 4503 - ; Normal message 
1F4 tg <REQUES TO R208. ~ ; Block transfer request 
18 $7 <PARTWER, 16 ; Block transfer partner 
1FF 22 BUG_ CHECK CNXMGRERR,FATAL ; Invalid CORP state 
0c 83 1F°AF 9 ; 23 10$: MOVAB 8*40$,CDRPSL_FPC(RS) 3 at : vee Congtetton address 
5 ef fy D 3 20$: MOVL CDT AUXSTROC(R3), R2 ; CSB a 
4 A ¢ 4 sty CORP Q_SENDSEQNM(R5) ; th ahemene "Tenore this CDRP 
os AS D ie iI MOVL C368 cvfartinsy ; Link to head of RESEND List 
04 12 13 26 BNEQ :; Branch if list already populated 
20 A2 «=65~—COE ir 2¢ MOVAL cpnesl QFL(RS) ; Set up tail pointer 
10 A2 «©65~—~—sCODE 1B 2$ 
O21F 5 
O21F 58 
o550 59 
0220 860 


00$: BUG_CHECK CNXMGRERR,FATAL ; Data structure not a CDRP. 
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= «SBTTL CNXSFAIL_MSG = Complete outstanding I/0 with failure status 
FUNCTIONAL DESCRIPTION: 


a) un-acked messages have their fork process resumed with 
a failure status. 


CALLING SEQUENCE: 


BSBW CNXSFAIL_MSG 
IPL must be at IPL$_SCS 


INPUT PARAMETERS: 


voor 001 CNXEEA 


ze 
va 


RS Address of CSB 
OUTPUT PARAMETERS: 
None 


SIDE EFFECTS: 
RO and R1 are destroyed. 


oO Bete Se Se Ge Se Ge Ge Ge Ge Ge Ge Ge Se Se Se Ge Se Ge Se Se Ge Ge 
‘ 
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NXSFAIL_MSG:: 


0O7C 8F PUSHR #*M<R2,R3,R4,R5,R6> ; Save registers 
56 36555 MOVL . : Move address of CSB 
55 1C A6 108: MOVL CSBSL_RESENDQFL(R6),R5 ; Remove CDRP from head 
ef BEQL 0$ ; Queue empty 
1 A6 66 MOVL CORPSL_FQFL(RS), ; Update queue head 


CSBSL_RESENDOQFL(R6) 


DPD PPT nt & ££ AAAI AI NII AI PO PONIPONNPONININYNONON NON NPONononononononononwnonrononn» sf 


WFO PP PPP PP POI £ SMO NWN MDDS LLL L LLL LLLP LPP PPL PEELE EEE 1 


WOOOOOOOOOOOOWO WOOO ©0900 69 09 09 09 09 09 Cd CD GD CD CD CD CD GD CD CD 0D CD CD CD CD C9 CO CD CD CD CD CD CO CD CD CD CDC CDCD 


St 4 § AQOOOOODOOOOC OOO OOOO OO 0000 09 09 00 09 09 090909 SI NIN SINISE NS IPA AAO 
NOME AN = 9 OD NAW EWN 9 OD NAME WWI | 9 OD NA UE WWI 0 OONAU EWN 0 ODNOUE wr 


COOOCCOOCOCOCOCOSOCCOSOCOOCOOCCCOOCOOC OCC OOOOCOCOCSOOOCOOCOOOCOCOCOOOOCOOOOOOOO 


BB 
4 
3 
dO 
0s 12 BNEQ 20$ ; Branch if queue not empty 
20 A6 =1C AB ODE MOVAL CSBSL_RESENDQFL(R6), - ; Update end pointer 
CSB$ wi iiett (R6) 
s. 208: CLRQ CORPSC_FQFL(R ; Zap queue Linkage 
$8 AS D4 CLRL CORPSL_CDOT(RS) ; Invalidate CDT address 
205 65 TSTW GRaPSL _RSPID*ECRS) ; Is there a RSPID? 
OA 13 BEQL 0$ ; Branch if no RSPID 
DEALLOC_RSPID 
20 AS 01 0 MOVL #1, CDRPSL_RSPID(RS) ; Set RSPID neeed flag 
50 gg5° 8F C 30$: MOVZWL #SS$_NODECEAVE,RO :; Indicate error to fork process 
5 56 =6b0 MOVL R6,R3 ; Restore CSB address 
54 D4 CLRL R4 ; Bug trap 
; Resume Fork process. Inputs are: 
; R SSS$_NODELEAVE (Indicates failover) 
: R Address of CSB 
3 R Address of CDRP 
JSB PCBRPSL FPCCRS) ; Resume fork process 
5RB 10$ ; Continue until queue is empty 
60$ pore #*M<R2,R3,R4,R5,R6> ; Restore registers 


aN 


ee 
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r 
esend messages P=1984 SYSLOA.SRCJACKMSG.MAR; 2 (10) | 
-SBTTL CNXSRESEND_MSGS = Resend messages 


v04~001 cnx 


"A 


ae 
mS 
“oO 
Ce 


++ 

FUNCTIONAL DESCRIPTION: 
This routine uses the the last sequence number the remote 
side received to resume the fork process for all messages 
that have been acked and to resend all messages that weren't 
ached. In addition all messages that have been queued since the 
previous connection broke are sent. 

CALLING SEQUENCE: 
BSBW CNXSRESEND_MSGS 

INPUT PARAMETERS: 
R5 Address of CSB 

IMPLICIT INPUTS: 


CSBSW_ACKRSEQNM contains last sequence number (of ours) received by 
remote side (equivalent to CLSMSGS$L_ACKSEQ). 


It is assumed that the resend queve contains only normal and block 
transfer requestor <DRPs. 


OUTPUT PARAMETERS: 
None 
SIDE EFFECTS: 
RO, and R1 are destroyed 


BPP LPL LEE EE Ze 


ae 


Ce a Be Be Be Be Be Be Oe Oe Be Be Be Be Be Se Se Bs Be Se Oe Ge Be Se Se Se Se Se Se Se Se Se Sete 
‘ 
t 


NXSRESEND_MSGS:: 


Remove CDRPs from the CSB RESEND queue. for each CDRP 
a) If its sequence number is zero, reset the CDT address, 


DPDPPAEDPPAPAPA AAA AA AA AA AAA A AAA AIA IAISAASIASPSOOOISASAS Me 


Be et et et et et ee ee et et et ed el et dt et et et et ed 


DPV SUSI EB EE BB BE AAW III AIPOPINIPONINPINININ —|— —-.EOAa 


DONA ME WN SO OD NA UE WIN O ODNOU EWN OOONOUS WO” 


remove the CDRP from he List, and forget it 
5 


WOOO OODOOO ODO OOO ODO OOOO OO OOOO ODOODODOODOOOOODOOOOOVOOWOOOOOOOOMOOOO “eS 


SOOO OCOCOOCOCOOOOCOCOCOCOCOCOOOCOOCOOO OOOO OCOCOCO COCO OOOO OO OCOOOCO OOOO OOOOoOO 


64 61 3 b) If its sequence number less than or equal to the acked 
4 $¢ 3 sequence number , then if it doesn't have a 
4 : then resume its fork process. If it does have a RSPID, 
4 64 : hen reset the CDT address and ae over it. 
4 65 3 c) f its sequence number is greater than the acked 
4 98 3 sequence, then resend it. 
? ; This loop is terminated as soon as we find the first CDRP to resend 
ggac gf Be 4 $3 PUSHR #*M<R2,R3,R4,R5,R7> 
. ® 68 9 MOVL ; Address of CSB 
55 1C A? g 71 108: MOVL SL_RESENDQFL(R7),R5 ; Get the next CORP 
2 F ie ut ; Branch if no more 
50 S4A 1 7? MOVZWL RPSW_SENDSEQNM(R5),RO ; CDRP*s sequence number 
06 3 74 BEQL ; Branch if there is no sequence number 
50 3O0A 4 7 75 SUBW CSBSW_ACKRSEQNM(R7),RO ; Compare with acknowledged sequence number 
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Voer001 CNXSRESENS., SGS - Resend messages ety 7 99:44:59 SYSLOA. SRCJACKMSG.MAR; 2 ak (48) 
51 14 78 7 BGTR 80$ ; Branch if it has not been ack'ed 
1c a? 650 f ‘ 208:  MOVL eae RELEASE ta : Update List head pointer 
0 12 79 BNEQ . <2 3; Branch if List not empt 
20 A? «OIC A DE : 0 MOVAL CSBSL_RESENDQFL(R7), = ; Point end at List head . 
1 CSBSL_RESENDOQBL (R7) 
§ 30$: ciation” CDRPSB_CNXSTATE(R5S) , TYPE=B8,PREFIX=CDRP$K_, - 
984 <NORMAL ,50$>, - ; If normal message 
985 <REQUESTOR,50$>, - : If block transfer 
9 : <PARTNER,40$>, = : Fail partner 
3 <PART IDLE ,408>, - : Fail idle partner 
38 2 : BUG_CHECK CNXMGRERR,FATAL ; Inconsistent state -- should never get her 
99 991 40S: 
99 838 3; Have a PARTNER-type CDRP that must be failed. 
+4 454 ; Inputs to fork process are: 
99 995 : R contains 0 (failure) 
0299 996 3 R Address of CSB 
0299 997 : R4 Address of PDT 
0 4 44; : R5 Address of CDRP 
0 99 130? > Fork routine may use RO - RS. 
53 57 0d0 0299 10 ¢ MOVL R7,R3 ; CSB address 
54° 10 ASO 0 9¢ 100 MOVL §CSBSL_PDT(R3),R4 : PDT address 
50 D4 AQ 1004 CLRL ; Set failure status 
0¢c BS 16 O2A HF JSB @CDRPSL_FPC(RS) ; Resume fork process 
C4 11 «O2A5 1 a8 BRB 10$ ; Continue processing 
A? 100 
Ay 138 308 
8 v4 ! 19 > Have a CDRP with a non-zero sequence number 
24.05 OC A? 00 ay 1 : MOVL CSBSLCDT(R?) « - ; Update CDT address in CDRP 
22 AS” «BS AC 1014 TSTW CORPSL_RSPID+2(R5) ; Is there a RSPID? 
05 13 AF 1015 BEQL 60$ 3; Branch if no RSPID 
54 AS) B4 B1 1 18 CLRW CORPSU_SENDSEQNA(RS) ; Flag it acknowledged 
B5 «11 +4 ' : BRB 10$ 3; Note that the RDT still point this this on 
54 AS 3 B6 1 15 60$: TSTW CRPSU SENDSEGNACRS) : Is there a sequence number? 
OF : ? BEQL $ ; Branch and bugcheck if no sequence number 
BB 1 § ; Have a CDRP whose message has been ack'ed and who doesn't 
= ! ? ; have a response id. Inputs to fork process are: 
BB 1025 : R contains 1 (successful acknowledge) 
BB § : RK Address of CSB 
BB 2 RG Address of PDT 
= ! § : R5 Address of CDRP 
88 0 : Fork routine may use RO - RS. 
53 57 00 BB 1032 MOVL R7,R3 ; CSB address 


oo 
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Voo- 001 CNXSRESEND D-ASGS - Re Send messages ore Een obec 99:44:59 SYSLOA.SRCJACKMSG.MAR; 2 . fd) voi 
54 10 A3 00 BE 1033 MOVL CSBS$L_PDT(R3) RG ; PDT address 
50. 01 00 C2 1034 MOVL #SS$_RORMAL Rb ; Get successful acknowledge 
0c BS 16 0eCcS 1035 JSB aCDRPSL_FPCIR ) ; Resume fork process 
Al 11 tS : § BRB 10$ 3; process and continue 
tA | § 70$: BUG_CHECK CNXMGRERR,FATAL ; Missing sequence number 
CE 1040 80$: 
O2cE 1041 ; Resend any messages that must be resent 
© ae 1: ; If there are no messages to resend, this will zero CURRCDRP 
cs ! rh ; and allow future messages to go through. 
.. Ww Be cE 1$e8 MOVL ; Set up CSB addres 
0118 0 8 } 1309 BSBwW RESERD_MSG ; Resend it and start pipeline 
OOBC 8F BA 0204 1048 POPR #*M<R2,R3,R4,R5,R7> 
05 O02D8 1049 RSB 
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voo~001 CNX SEND_ MSE - Send or acknowledged mess ety 7 99:43:39 SYSLOA.SRCJACKMSG.MAR; 2 ae Hf) | 
-SBTTL CNXSSEND_MSG = Send an acknowledged message 
-SBTTL CNXSSEND_MSG_CSB = Send a message wai C 
~SBITL CNXSSEND_MSG_RSPID = Send a message with response id 
~-SBTTL CNXSSEND_MSG_RESP = Send a message & recycle message buffer 
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FUNCTIONAL DESCRIPTION: 


| 
| 
| 
j 
| 
| 
This routine sends an acknowledged message. An acknowledged message | 
is one that is guaranteed to be received by VMS at the remote 

system or a failover is initiated. The message is automatically 
resent if the connection breaks and another connection is 

subsequently established to the same system and software 

incarnation. Furthermore, the caller of this routine is returned 

to when the message has been acknowledged. The caller's caller 

is returned to immediately. 


CALLING SEQUENCE: 


UW O OONOUS wr 


BSBW CNXSSEND_MSG Send a message 

BSBW CNXSSEND_MSG_CSB Send a message using CSB address 

BSBW CNXSSEND_MSG_RSPID Send a message with response id 

BSBW CNXSSEND_MSG_RESP Send a message and recycle message bfr 

BSBW RESEND _MSG Internal entry point (used for resends) 

BSBwW SEND_UNSEQ_MSG Internal entry point (used for block transfe 


This routine returns to its caller when the erseoge has been 
acknowledged. It returns to its caller's caller immediately. 

The standard fork process convention that the caller must not 
— anything onto the stack is in effect. 

n exception is when RO contains SS$_NOSUCHNODE return status. 

In this case, the return address of fhe caller's orginal caller is 
still on the top of the stack. In some cases, this may require 
apec’es action on the part of this routine's caller. 

The other exception is one case of SS$_NODELEAVE. When an attempt 
is made to send a message to a node in the LONG_BREAK state, a 
hans a return is made with the stack in the condition just 
escribed. 


IPL must be at IPL$_SCS 
INPUT PARAMETERS: 
R Address of message buffer (CNXSSEND_MSG_RESP entry only) 
R CSID (for all routines except CNXSSEND_ASG_CSB) 
R CSB (CNXSSEND_MSG_CSB only) 
RS Address of CDRP 
IMPLICIT INPUTS: 
CDRPSL_MSGBLD must contain the address of a message build routine. 
CDRPSL_RSPID must contain one of the following values: 
0 No RSPID allocated and none needed 


1 No RSPID allocated but one is needed 
A valid RSPID A RSPID is needed and is already allocated. 


tt I 4 AQQOQOQVQOOOOOOOVDOOCOOCOGOCVOGCOCOC COC OCOCCOCOC CSCO OOOO OOOOOOOOOOCOCOO 
SSeS aos oe Bie eh nthe eee ae ere aie andes een ane 


ODODOOOOOOOVODOOVOOOCVOOVOOVOOVOOOOOOODOOVOOVOODOVOVOVOODOOVODODOODOODOOOOOOOOO 
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CORPSL_MSG_BUF must contain a valid message buffer address or zero. 


Any information that the message build routine requires should 
be in the CDRP or pointed to by pointers in the CDRP. 


This routine requires that several CDRP fields be initialized to zero. 
CNXSINIT_CDRP should be called to perform this initialization. 


OUTPUT PARAMETERS: 


RO Status 
SS$_NORMAL ==> Message successfully acknowledged 
(if response requested, response received) 
SS$_NOSUCHNODE ==> Invalid CSID (Not possible for 
CAESSEND AS66598. N.B. no fork occurs in 


| 

| 

| 

this case P | 
SS$_NODELEAVE ==> Requested node is leaving the cluster 
or you are (a fork may or may not have occurred) 


R2 Message buffer address 

83 (if response requested and RO = SS$_NORMAL) 
If status is anything but SS$_NOSUCHNODE : CSB 

- If status is SS$_NOSUCHNODE : CSID 
If status is SS$_NOSUCHNODE : unchanged 
If status is SS$_NODELEAVE (synchronous return) : 
In all other caes : PDT address 

IMPLICIT OUTPUTS: 
None 


SIDE EFFECTS: 
RO - R2 and R4 are destroyed. 


-ENABLE LSB 


R5 CDRP address 

° | 
Error in input CSID. ; 

Cleanup allocated SCS resources and return SS$_NOSUCHNODE immediately. 

; N.B. This is the synchronous return from CNXS$SSEND_MSG. See notes in 

; module header above. 


SEND_CSID_ERROR: 


MMMNOoOVCOVVTVVOCVTVCVUVOUVOVUVCUVUVUUOVUUOUVUVOUUVUOUVCVCUVUOCVCUVOVUOCUNVUVUVTVUUOUVUVUVUVUVUVTVUVTVTUVTVTVTCTCST 
SGDOOM OOOO OOOO OO OOOO VOOOOVOOVOOOVOOVOVOVOOVOOVOOOVOVOOVOVOVOVOOOOOVOOOOOOOO 
ee et ee a a a ad 2 dd od dd = SS 3 8 8 SS 8 3 3 3 
ee ee el me ee eB ee ed dd = dd dd Dd dS dd od 3 3D ¢ 
DRDPDPDP srs & Be BE EE NANI AIAI NANI PPINPPINIPINPINI NY 2 SO OO OO "O00 2A 
PAN 2 OD NAME WIN CO OO NAUE WIN 0 OD NOA UE WR CO OO NAW EW SOO ONOUES Wn O0o 


i eee ww eel elololololeolololololelololololololololelelelolol ola) 
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7E §028C¢ of 3¢ MOVZWL #SSS$_NOSUCHNODE,-(SP) ; Set bad CSID error status. 
ci +.oe BRB 20$ ; Cleanup and return synchronously 
FE83 ©6630 


| 

} 

| 

| 

10$:  BSBW —_- FLUSH_WARMCDRPS ; Flush warm CDRP cache | 
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34 a3 OD TSTL CSBSL_CURRCDRP(R3) : Increment count again 
7B OO] BEQL SEND_ASG_NOWAIT 3 Don't wait after all 
FES 3 BSBW CLEARNUP_CORP : Deallocate RSPID, MAP, and MSGBUF resource 
344A D TSTL CSBSL_CORRCDRP(R3) : Increment count again 
7 1 BEQL SEND_ASG_NOWAIT ; Don't wait after all 
3 A 94 CLRB cSBS8 UNKCEEDRSGS (RS) 3; Prevent explicit ACK attempts 
C AS BEDO POPL CORPSC_FPC(RS) : Save our caller's PC in fork block 
$2 D4 CLRL CORPS. FQFL(RS) ; Zero end of List 
20 83 dO MOVL RS, aCSB$L_RESENDQBL(R3) ; Link this CDRP at end of List 
20 A 55 D0 MOVL RS,CSBSL_RESENDQBL(R3) ; Update end of List pinter 
05 RSB ; Return to caller's caller 
CDRP_MUST_WAIT: 


3; Another CORP is in resource wait or the connection is currently 
down. Place CDRP on resend queue and return to our caller's caller. 


NOTE: The warm CDRP cache must be flushed AFTER we insert 
this CDRP on the queue for the following reason. i. the 
cache (and the resources in this CDRP) may free up the wait 
thread which will in turn try to resume other waiters. It may 

seem that the correct solution to this is to insert this CDRP 

on the RESEND queue BEFORE flushing the cache. The reason this 
doesn't work is that we can't deallocate both the RSPID and message 
buffer stenteatty, In other words, deallocation of the RSPID 

might start up this very CDRP (Cif it were on the queue) before 

the RSPID field had been set to 1 and before the message buffer 

had been deallocated. This problem could be circumvented (and 

the cache flushed after the INSQUE) if we could deallocate the RSPID 
with a register entry point (message buffers already can be 
deallocated with a register entry point). Then we could pick up 

the resources, initialize the CDRP, and then deallocate the 
resources. This, in turn, might start up the very CDRP we had 

just INSQUEd. 


BBC #CSBSV_LONG BREAK 


D9 60 AS 00 €E1 ; Try to free resources if no long 


| 
| 
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0 CSB$L_STATUS(R3),10$ |: connection break has yet occurred 
7E 223 BF 3C 01 MOVZWL #SS$_RODELEAVE,-(SP) ; Return status 
1¢ AS ODS b 208: TSTL CORPSL_MSG_BUF (R5) i Is there a message buffer? 
3 1 0 BNEQ 40$ ; Branch if buffer present. 
22 A 8 04 TSTwW DRPSL_RSPID+2(R5) ; Is there a RSPID allocated? 
OA 1 05 ; Branch if no RSPID allocated. 
06 DEALLOC_RSPID ; Else, deallocate RSPID. | 
20 AS 01 00 07 MOVL #1, CDRPSL_RSPID(RS) ; Indicate that a RSPID will be needed. 
01 ##BA 8 30$: POPR #*M<RO> : Fetch return status 
05 oP RSB ; Return synchronously to caller. 
11 408: BUG_CHECK CNYMGRERR,FATAL ; CDRP contains prssage buffer which 
1§ : can not be deallocated without 
1 ; €SB / PDT context | 
14 DISABLE LSB | 
1? ~ENABL LSB 
19 CNXSSEND_MSG_RSPID:: 
20 AS) «6(01~—Ss«é00 18 AOVL #1, CDRPSL_RSPID(RS) : Indicate a RSPID is needed 
09 11 4 BRB CNXSSEND_ASG 
$f CNXSSEND_MSG_RESP:: 


se 
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10 AS) 5 4 MOVL R2,CORPSL_MSG_BUF (RS) 3; Save mgesoge buffer address 
04 Ao D MOVL  CLSMSGSL_RSPIB(R2),- : Store RSPID to return in CDRP 
8A CORPSL_RETRSPID(RSS 


CNXSSEND_MSG: : 


First determine if the connection is open. If not, the CDRP 

is sinely placed on the resend queve. If the connection comes back, 
we will Build and send the message then. Otherwise we will 

do a failover. If the connection is open then save 

our caller’s return PC in the CDRP in case SCS calls (e.g. 

7 | Ot eel OR ALLOC_RSPID) wait and return to our caller's 
caller. 

Finally, prepare to call massape build routine. Put the PDT address 
in R4, the CDT address in the CDRP, conditionally allocate a 


Sete Ge Ge Ge Ge Ge Ge Ge Ge 


response id., and allocate or recycle a message buffer. 
CSID_TO_CSB csb=R3, error=SEND_CSID_ERROR 


} 
Dee eee | 
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d 
R 
1 
1358 
1224 
; 5 
1559 
1228 
0 1229 
1230 
: 1 
1538 
1234 
1235 
03 1236 
eee 
1 $ 
03 1239 
03 1240 
03 1241 CNXSSEND_MSG_CSB:: 
2c AS. BSCS 1 g 5$: INCW CSBSW_SENDSEQNM(R3) ; Increment sequence number 
FB «13 «(03 124 BEQL 5$ ; Don't use zero as a sequence number 
2c AS =6BO SCS 1244 MOVW CSBSW_SENDSEQNM(R3),- ; Put sequence number into the CDRP 
54 A5 03 45 CDRPSQ_SENDSEQNM(R55 
03 1247 ; The block transfer code enters here to send an unsequenced message 
03 1248 3; requesting data movement using the common resource allocation / 
03 1249 ; cleanup apparatus. 
03 1250 
03 1251 SEND_UNSEQ MSG: 
OC AS =O «(03 1 26 MOUL CSB$L_CDT(R3) ,- ; Put CDT address into CDRP 
24 A5 03 1382 CDRPSC_CDT(R5S 
03 1255 ; The following code begins a critical section meaning only one 
83 1$26 ; CDRP thread may be in this section at a time. 
34 AS D5 $3 1588 TSTL CSBSL_CURRCDRP(R3) ; Branch if critical section is locked (>0) 
9F 12 Q3 1259 BNEQ CORP_AUST_WAIT 3 or busy (<0) 
ts 1260 SEND_MSG NOWAIT: ; Return here if we don't wait after all 
34 AS 55 00 QO 1261 ROVL R5,CSBS$L_CURRCDRP(R3) ; This becomes the ‘‘current’’ CDRP 
50 A5 8ED0 0367 6¢ POPL CDRPSL_SAVEPC(RS) ; Save return PC 
54 10 A3 00 0366 : ee MOVL CSBSL_PDT(R3) ,R4 ; Get PDT address 
er 1 66 SEND_ALLOC: 
He 126 
: : re 3; Allocate resources 
20 AS DS ¢f 1 % TSTL CORPSL_RSPID(RS) ; Is a response id needed? 
08 13 2 1271 BEQL ; Branch if no 
22 A B5 0374 1 8 TSTW CORPSL_RSPID+2(R5) ; Yes, is a response id allocated? 
06 12 77 «+127 BNEQ 10$ ; Branch if yes 
79 «1274 ALLOC_RSPID ; No, allocate a response id. 
1C AS if 7F 1275 10$: TSTL CORPSL_MSG_BUF (R5) ; Is there already a message buffer? | 
OA 1 $¢ 1 16 BEQL 208 ; Branch if no 
4 127 RECYCL MSG _OUE : Yes, pesycte it 
OA 50 «EB 7 1278 BLBS RO, 508 ; Branch if no error | 


————eE~T . | 


¢ 7 RS $ | 
voe-601 ENKSSENDASERESP = Send’ message & rec 'P-SEP-1986 17:43:02 EsrSLOA.SRESAcKmecenan;2 8° Ff, 


. : ft 15$: BUG_ CHECK CNXMGRERR, FATAL ; Error allocating/recycling message buffer | 
; 1 20$: ALLOC_MSG mt ; Allocate a message buffer 
F6 50D 4 ! ; BLBC ~ RO,15$ ; Branch on error | 
2 ! : 308: ; Now call the message build routine. Inputs to this routine are: | 
94 1 $ : R Address of message buffer 
94 «1 ; = Address of CSB 
94 «4 SS 3 RG Address of PDT 
a ! 3 3 RS Address of CDRP 
a : $1 : RO and R1 may be destroyed. Everything else must be preserved. | 
4¢ B85 16 6 i] : $8 JSB @CDRPSL_MSGBLD(RS) ; Call message build routine 
6 97 1295 ; Add ye header. This consists of this message's sequence 
0 44 : > ; number and the lest received sequence number from the remote side. 
02 A2 2E€ AS’ BO 97 1298 MOVW CSBSW_RCVDSEQNM(R3), - ; Get highest received (remote) sequence 
039C 1299 CLSMSG$W_ACKSEQ(R2) 3 and return acknowledgement. 
62 54 A5 B80 0 H' 1300 MOVW CORP$W_SENDSEQNM(RS), - ; Get sequence number for this message 
Q3A0 1301 CLSMSGSW_SEQNUM(R2 
32 As 9% tn ! ; CLRB CSBSB_UNACKEDMSGS(R3) =; Zero count of un-acked messages 
Ba, 1304 ; Now send the message. If there is a response id. then SCS will 
AS 1305 ; set up the fork block so we have to make it appear 
baa 1306 ; as if our caller called SEND_MSG_BUF. Otherwise, we set up 
9 A 4 3 the fork block. | 
65 D4 BRA 1309 CLRL CORPSL_FQFL(RS) ; Clear atanoge 
18 rt ge DO O3A5 1310 MOVL R5,aCSBSL_SENTQBL(R3) =; Link to tail of sent List | 
18 A 5 DO O3A9 1311 MOVL R5,CSBSL_SENTQBL(R3) ; Update tail pointer 
50 20A5 OD 8 AD 1 \¢ MOVL EDRPSL_RSPIDCR5) RO ; Get response id. (if there is one) 
28 1 : 1? BEQL 0$ ; No response id. 
04 A2. 50 00 6 ; 1315 MOVL RO,CLSMSGSL_RSPID(R2) ; Store response id in message | 
3 ‘AF OF QO 1 16 PUSHAL B*60$ ; Place to return to after send 
0 AS OD OQ3BA 131 PUSHL CORPS$L_SAVEPC(RS) ; Put our caller's PC back on the stack 
038D 1318 ASSUME CLSMSGSK_MAXMSG,LT,256 
51 8F SA 3 D 1319 MOVZBL #CLSMSGSR_MAXMSG,R ; Message size 
60 B4 17 3 ci ' y @PDTSL_SNDCNTMSG(R4) § ce ot as to SEND_CNT_MSG_BUF rather 
5 ana 
C4 1 
c4 (1 : ; The following two named routines are special message build routines | 
C4 1324 ; to handle block transfer requests. They replace the message build 
2 ! 5 ; routine and all following code. 
: 
C4 1 5 SEND_DATA: 
54 AS B4 C4 (1 8 CLRW CORPSW_SENDSEQNM(RS) ; No sequence number 
6E F'AF § 9E C7? 1 MOVAB 8*60$,TSP) ; Replace message build routine return 
51 at oF CB 13350 PUSHAB 8*100 ; Return point when transfer complete 
4 B4 cf : 1 JMP @PDTSL_SENDDATA(R4) ; This is a JMP to request data movement 
D1 1 : REQUEST_DATA: 
54 AS Bs D1 15334 CLRW CORPS$W_SENDSEQNM(RS) ; No sequence number 
6E EF‘AF E D4 1335 MOVAB 8*60$,TSP) ; Replace message build routine return | 
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1'AF = oO9F p81 § PUSHAB 6*100$ ; Return point when transfer complete 
084 17 ? ! JMP @PDTSL_REQDATA(R4) ; This is a JMP to request data movement 
8 AS 00 DE 1 § 50$: MOVL CORPSL_RETRSPID(RS),- ; Store return RSPID (or 0) 
4 A2 er Y rk CLSMSGSL_RSPID(R2) 
E3 134 ASSUME CLSMSGSK_MAXMSG,LT,256 
51 6B BF 9A OES 1348 MOVZBL | #CLSMSGSR_MAXMSG, Ri ; Message size | 
50 ASO EA 1344 MOVL™  CDRPSL_SAVEPC(RS),- ; Put_our caller's return PC into | 
Oc a5 ED 43 CORPSL-FPC(RS) ; CDRP fork block | 
ae t3 60$: ; Come here after message has been sent to see if we have to resume 
EF 1 re ; any CORPs that were placed on the RESEND queue. This represents 
EF 134 ; the end of the critical section. Also come here to initiate 
44 ! 29 3; resending messages when a connection is re-opened. 
6 dhe 26 RESEND_MSG: 
34 AS 1C AS 00 EF 135 MOVL CSBSL_RESENDQFL(R3), = ; Update current CDRP 
8 FE 1354 Sxeet..CURRCDAPIRS) 
0. 1 F4 1355 BNEQ 708 ; Have a waiter 
ABS Bai be | 
8 re : 38 70$: ; Resume a waiting CDRP thread. 
55 _1C Ad DO O3F7 1360 MOVL CSBSL_RESENDQFL(R3),R5 ; Get next waiting CDRP 
1¢ AS) «6650S OsCéO3FB C1361 MOVL CORPSC_FQFL(RS), = ; Update List head pointer 
O3FF 1 66 SBSL_RESENDQFL(R3) 
05 12 OQSFF 136 BNEQ 0$ ; Branch if List not yet empty 
20 AS = 1C AS DE 0401 1364 MOVAL CSBSL_RESENDQFL(R3), - ; Update List tail pointer 
Bene : 2? 80s CSBSL_RESENDQBL (R3) 
OC AS DO 0406 1 89 MOVL CDRPSL_FPC(RS),- ; Use original caller's return address 
50 A 0409 1368 CDRPSL~SAVEPC (RS) : as the saved PC 
54 10 nS dO Rope 1369 MOVL CSBSL_PDT(R3) .R4 ; Get PDT address 
OC A DO O40F 1370 MOVL CSB$L_CDT(R3),- ; Put CDT address into CDRP 
24 AS 0412 1371 CORPSC_CDT(RS 
eele : es DISPATCH CORPSB_CNXSTATE(RS) ,type=B,prefix=CDRPSK_ - 
0414 13746 <NORMAL ,SEND_ALLOC>, - ; Normal messages 
0414 1375 <REQUESTOR,90$>, - :; Block transfer requestor messages 
Rete ' 6 <PARTNER ,905>, - ; Block transfer partner messages 
pene ' 4 BUG_CHECK CNXMGRERR,FATAL ; Invalid CNX state 
51 40 A5 _ OE 8 ; 1380 90$: MOVAL CDRPSL_CNXSVAPTE(R5),R1 ; Get SVAPTE block address 
52 GAAS GA 046 1381 MOVZBL CDRP$B~CNXRMOD(R5) Re ; Get requestor’s access mode 
428 1 § MAP ; Map transfer block 
FFSE 31 04 . ! t BRW SEND_ALLOC ; Join normal message resend code 
4 ' : 5 ; Get here when block transfer request completes 
50 DD 0431 1 $ 100$: PUSHL RO ; Save status 
433 1 3 UNMAP ; Unmap buffer 
01 BA 04 $ 1 POPR #*A<RO> ; Restore status 
50 B85 17 ? } a JAP @CDRPS$L_SAVEPC(RS) ; Return to caller 
4 1392 -DSABL LSB 
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~ -SBTTL CNXSSEND_MNY_MSGS = Send acknowledged messages to all nodes 
FUNCTIONAL DESCRIPTION: 


ACKM = Acknowledged Message Services 
VOe-001 CNXS$SEND_MN ¢ 


This routine sends aemnaseeyee messages to all nodes having valid CSB 
addresses in the cluster system vector. The messages are sent using 


multiple concurrent fork ‘ reads executing the CNXSSEND_MSG 
acknowledged message service. 
NOTE: 
0 No ectoape is made to detect oending changes in the cluster system 
vector. 


o Error status returns from the acknowledged message facility, i.e. 
failing or failed systems, are ignored. 


This routine will "‘broadcast’’ a message to all currently active 
systems. However, systems just entering or leaving the cluster may be 
missed. Callers of this routine are completely responsible for 
handling ‘‘missed’’ systems. 


CALLING SEQUENCE: 

BSBW CNXSSEND_MNY_MSGS Send many messages 

This routine returns to its caller when the all messages have been 

queued for processing by the CNXSSEND_MSG. This does not guarantee 

that all messages have been received af remote nodes. Because of the 

nature of CNXSSEND_MSG operation when no response is required, waiting 

for all messages to be received and acknowledged at the remote nodes 

could result in wait intervals of days. 
| 
j 


If a wait for resources is necessary, control may be returned to the 
caller's caller before control is returned to the caller. 


IPL must be at IPL$_SCS 
INPUT PARAMETERS: 
OO(SP) Return address for caller 
04(SP) Return address for caller's caller 
R5 Address of CDRP 
IMPLICIT INPUTS: 
CDRPSL_MSGBLD must contain the address of a message build routine. 
CDRPSB_FIPL must contain IPL$_SCS 
Because return from this routine does not guarantee that the message 
build routine will never be called again, any information required by 


the message build routine phoui¢ be contained completely in the CDRP 
or in data structures which w 
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Ll never disappear. 


This routine requires that several CDRP fields be initialized to zero. 
CNXSINIT_CORP should be called to perform this initialization. 
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CLUSGL_CLUSVEC starting address of the cluster system vector 
CLUSGW_MAXINDEX maximum CSID index 


OUTPUT PARAMETERS: 


R5 CORP address (unchanged) 
IMPLICIT OUTPUTS: 
None 


SIDE EFFECTS: 
RO - R4 are destroyed. 


CNXSSEND_MNY_MSGS: : 


POPL CDRP$I._SAVEPC(RS) 

MOVL G*CLUSGL_CLUSVEC, R4 

MOVZWL GeCLUSGU_RAXINDEX , R3 
10$: SOBGTR R3, 30$ 


JMP @CDRPSL_SAVEPC(RS) 


50 AS 8EDO 
00000000 ' GF 0 


54 Save caller's return address. 
53 00000000‘ GF f 
09 53 =F 


Get cluster system vec. base. 
Get max CSID index. 

Loop or entire cluster 
system vector except idx. 0. 
Return to caller. 


50 B85 17 


> Error allocating memory for CDRP. 


~m « 


0$:  FORK_WAIT Wait a Little while. 


Send message to one node 
O$: MOVL (R4)CR3J, RO 
10$ 
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50 96443 ° 


+f 0 Get system vector entry. 
—E9 60 AO 18 5 


Branch if not valid CSB addr. 
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BBS #CSBSV_LOCAL, - ; Branch if this is the local node. 
464 CSBSL_STATUS(RO) , 108 
24 a5 50 00 rhe} MOVL RO, CDRPSL_CDT(RS) ; Save (SB of entry. 
60 BF 9A 046 MOVZBL #CDRPSK_CM_LENGTH, R1 ; Get size of needed CDRP. 
00000000 ' GF 1 4 JSB EXE SACONONPAGED ; Allocate memory for the CDRP. 
DE 50 ~«€€ of BLBC RO, 208 : Branch if allocation failed. 
47 ASSUME CDRPS$B_CD_TYPE EQ <CDRPS$W_CDRPSIZE + 2> 
08 A2 1 BO 047 “OVW R1 corre? FORPSIZE (Re) ; Set allocation size. 
C BB 479 PUSHR #*M<R2,R3,R4,R5> : Save more registers. 
0056 BF 478 MOVC3 #<CDRP$K CM CENGTH-CDRPSB_CD_TYPE>,- _ ; Copy rest of user's 
OA A2. 0A AS zt CORP$B_CO_TYPE(RS), CDRPSB_CD_TYPE(R2) ; CDRP to new CDRP. 
55 sep8 4 ; POPL R5 3; Restore new CDRP address. 
53 AS 6 MOVL CORPSL_CDT(R5), R3 ; Restore sayed CSB address. 
9° AF 48A PUSHAB 8*60$ : Set caller's caller address. 
FEBF 0 048D BSBW CNXSSEND_MSG_CSB ; Send this message. 


Kk 
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Control returns here when 
the message is acknowledged. 
Copy CDRP one ress. 
Deallocate it and return. 


Control returns here when 
; message is queued. 

: Restore saved registers. 
Go process next index. 


Sete te Se 


oooodoo0'é? 99 
ao 


60$: POPR #*M<R3,R4,R5> 
BRB 108 


PS ee et ee ee 


wwowowuovono 
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MOVL = RS R0 

JMP G*EXESDEANONPAGED 
4 
é 


SUE 
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rh 4 ! -SBTTL CNXSRCV_MSG = Receive message routine 

490 1 3 ++ 

$30 1 i > FUNCTIONAL DESCRIPTION: 

490 1585 ;: This routine is the message input routine. I.e. SCS calls 

490 1 § § this routine when a message has been received over our 

49D 1 3 connection. This routine firsts looks at the acknowledge 

49D 1 § 3 sequence number and calls any fork processes waiting for message 
49D 1 5 acknowledgement. It then determines if this message is a 

49D 1550; response for a message we sent. If it is, that fork process 

49D 1 3 is resumed. ytherutse, this message must be an unsolicited 

r} 4 ! 3 message in which case the appropriate function routine is called. 
49D 13 4 : CALLING SEQUENCE: 

490 15 : : JSB CNXS$RCV_MSG (called from fork dispatcher) 

049D 1 ; IPL is at IPL$_SCS 

943 } 3 3 This routine operates as a fork process. 

0490 1340 : INPUT PARAMETERS: 

049D 1348 : R1 Length of message 

049D 1543 ; R Address of message 

049D 1544 ; kK Address of CDT 

9843 1362 : RG Address of PDT 

49D 1349 > OUTPUT PARAMETERS: 

49D 1368 3 

b49p 1880 a 

0490 1551 ; SIDE EFFECTS: 

049D 1326 3 

049D 1553 ; NONE 

49D 1554; 

i 

bcp 1387 -ENABL LSB 

o¢9p 1223 ; Connection is not open, drop message and return 

435 a3 O07 91 rt | 130) 10s: CMPB ScsBsk PIScommect. - : Is connection disconnecting? 
93 12 geal 1368 BNEQ 20$ _~ ; Branch if not disconnecting 
0506 =s«31 re | ! rt: BRW CNXSDEALL_MSG_BUF_CSB ; Deallocate message buffer and return 
7 1366 20$: BUG_CHECK CNXMGRERR,FATAL ; Connection in unexptected state 
mH ' oe ; Sequence number error in received message 
2—E AS AS Q4AA 1 5 $0s: SUBW3 CSBSW_RCVDSEQNM(R3),- ; Verify that this is a missing 
50 Ge 4AD 1571 FL SASGSU_SEQNUACR ),RO ; _ message sequence number 
9 iat } if BLSS 4 ; Branch if not a missing message 
481 1574 ; BRW CNXSRCV_REJECT ; Reject message and return 
0000_=s: 311 th) : 5 BRW 40$ 3; *** temp to catch problems -- bugcheck on 
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1 
rt} 1377 408: BUG_CHECK CNXMGRERR,FATAL ; Repeated or garbage sequence number | 
H } hi ; Acknowledged message sequence number precedes previous number | 
: ° ; Out of order acknowledgement 
4B8 1 50s BUG_ CHECK CNXMGRERR, FATAL ; Out of ord knowled | 
48C 1 5 CNXSRCV_MSG:: 
dO ret 1584 MOVL CDTSL_AUXSTRUC(R3),R3 ; Get address of CSB | 
91 04C0 1585 CMPB #CSBSK_OPEN, - ; Is connection open? 
4C4 1 : CSBSB_STATE(R3) 
12 ace | BNEQ 108 ; Branch if not open | 
gece 1 § : + ody | the sequence number on this message is 1 greater 
4C6 1590 3; than the last we received. Update the received sequence number 
4C6 1591 i; field. Determine if the ack'ed sequence number is greater 
; than the last sequence number ack'ed. 
8 18 ie pelle 
Bg rt: 1594 110$: INCW CSBSW_RCVDSEQNM(R3) i Increment highest seq. no. received 
13 04C9 1595 BEQL 1108 ; Skip over zero 
Bi 04CB 1338 CMPW CSBSW_RCVDSEQNM(R3),- ; Verify message sequence number 
O4cE 159 SMSGS$W_SEQNUM(R2) 
12 O4CF 1598 BNEQ $ ; Message seq. number error 
96 0401 1599 INCB 5 9008 _UMACKEDNSES (R5? i; Incr. count of un-acked messages 
DD Be88 1600 PUSHL R ; Save CSB address 
KB bebe 1o86 SUBW3 CSBSW_ACKRSEQNM(R3), - ; Is ack'ed sequence number 
re$3 160 GL SASGSU_ACKSEG(RE) RO ; bigger than the last one? 
13 O4DC 1604 BEQL 1508 : It's the same - nothing new ack'ed 
19 ot 1605 BLSS 50$ : It's smaller - seq. no. error 
BO 04E 1906 MOVW CLSMSGSW sis eathe {f - ; It's bigger - update ack’ed number 
Bee? bat CSBSW_ACRRSEQNM(RS) 
Beee 1609 ; We've received a new ack'ed sequence number. Resume fork process 
4E5 1610 ; threads for all CDORPs that have just been ack’ed. This doesn't 
Q4E5 1611 : include CORPs that have RSPIDs as they are resumed when the 
Bees 1218 3; response message arrives. However, CDRPs with RSPIDs are not on 
tt 1oi7 ; the sent queue 
D 4E5 1615 130$: MOVL CSRSL_SENTOFL (RS) .RS ; Get first CDRP in sent List 
1 4E9 1916 BEQL 150$ ; No more CDRP's -- continue 
A ri 161 SUBW3 CSBSW_ACKRSEQNM(R3), -  ; Does CDRP's sequence number match 
4F 1913 DRPSO_SENDSEQNM(R5) .RO 3; next ack'ed sequence number? 
14 OQO4F1 161 BGTR $ ; This message not ack'ed 
dO rh 1620 MOVL CDORPSL_FQFL(RS), = 3; Update List head pointer 
4F? 1601 CSBSL_SENTOFL (RS) | 
12 O4F7 16 § BNEQ 140$ ; Branch if ist not empty 
DE O4F9 16 MOVAL GSRSL SENTOEL (RID - ; Reset List tail pointer 
4FE 1624 CSBS$L_SENTQBL(R3) 
B4 O4FE 1625 1408: CLRW CORPS$O_SENDSEQNM(RS) : Clear sequence number marking message ackn 
83 501 16 § TSTW FRRESL RSP LOVE CRD) ; Is there a RSPID? 
: r 1 BNEQ 0$ ; Branch if yes | 
DD 1 3 PUSHL R2 ; Save message buffer address 
19 ? ; Have a CORP whose message has been ack'ed and who doesn't | 
: 1 § ; have a response id. Resume fork process. Inputs to fork process are: 
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H RO contains 1 (successful acknowledge) 
: R Address of (SB 
; R4 Address of PDT 
; R5 Address of CDRP 


; Fork routine may destroy RO - R5. 


We have a response to a previous message. Resume fork process. 
Inputs to fork process are: 


ik £58 NORMAL (successful acknowledge) 
. Address of message 

R4 Address of PDT 

R5 Address of CDRP 


Fork routine may destroy RO - R5. 


nowl 
CV_M 
1634 
oH 
sob 1 
ott 
50 01 OD 3 184 MOVL #SS$_NORMAL ne ; Indicate success 
0c 83 16 0508 1646 JSB @CORPSL_FPC(RS) ; Resume fork process 
2 BED 5 ; 19% POP R ; Restore peasege buffer address 
53 of Dd 511 1644 MOVL (SP) ,R3 i; Restore CSB address into R3 
54 110A D 14 196? MOVL FaRst..POT CRS) WA : Fetch PDT address 
cB] ! ‘$ BRB $ ; Continue loop 
QO5S1A 184 150$:  ; Now handle incoming message. Determine if it is a response 
OSIA 164 ; tO @ message we sent or an unsolicited message by looking 
Baia 1929 ; at the message fucntion code. Responses have negative function codes. 
OSA2'CF OF O34 1686 PUSHAB W*200$ ; ALL roads eventually return to 200$ 
50 O08 A2 9 031 1654 CVTBL CLSMSG$B_FACILITY(R2),RO ; Get facility code 
3E 3 : é 199 BGEQ 1b8s 4 ; Branch if not a response 
03 4 1889 ; Look up the RSPID to find the corresponding CDRP. 
: ? 1928 ; Recycle the RSPID with inline code instead of calling SCS (for speed). 
50 00000000‘ GF Bo 524 1660 MOVL G*SCSSGL_RDT,RO ; Get address of table of RSPIDs 
51 04 A2 C 0528 1661 MOVZWL CLSMSGSL-RSPID(R2) .Rt ; Get sequence number of RSPID 
FB AO 51 D1 O52F 1606 CMPL R1,RDOTSL_MAXRDIDX(RO) 3 Check it against maximum 
29 1A—O05 3 166 GTRU. 165$ : Too big = bugcheck 
5 1664 ASSUME RDSC_LENGTH EQ 8 
51 6041 7E 0535 1665 MOVAQ (RO)ER1),R1 ; Compute address of entry 
06 Al Bi 0539 1998 MPW RD$W_SEQNUM(R1),- ; Compare sequence numbers 
06 A2 53¢ 166 CLSMSGSL_RSPID+2(R2) 
1—€ 12 Q5 3 1668 E 165$ ; No match, bugcheck 
54 1669 ASSUME RDSV_BUSY EQ 0 
1A_04 Al E9 0540 1670 RDSW_STATE(R1),165$ 
5 DO 0544 1671 MOVL RDSL~CDRP(R1) ,RS ; Get CDRP address 
20 AS 04 A2so1s«0547 1678 CMPL = CLSMSGSL_RSPIB(R2), - Check for RSPID match. 
54C (167 CORPSL_RSPID(RS) 
10 12 Q54C 1674 BNEQ 65$ Branch if no match. 
06 e 88 208 1973 160$: ay RORY SEQNUNCAT) Increment sequence number 
96 Al 60 22 1877 MOV RD$W_SEQNUM(R1) ,- Copy new sequence number into CDRP 
AS 556 1 £8 CORPSL_RSPID+2(R5) 
558 167 
558 1680 
at 
558 16 § 
22 19 4 
1685 
5 16 § 
16 
58 (1 } 
é 1 
5 1690 


Skip over zero 
| 
| 
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50 01 D 8 1691 MOVL  #SS$_NORMAL RO ; Indicate success 
oc BS B 169¢ JMP ACDRPSL_FPC(RS) : Continue thread -- return to 2008 
| 
2? 1928 165$: BUG_CHECK CNXMGRERR, FATAL 3; Response id invalid 
56 1696 170$: 
562 169 ; Message is an input message rather than a response. Dispatch 
2° 1998 ; to appropriate second level message dispatcher. 
056 1260 3 Inputs to second level dispatcher are: 
0562 1701 : 
820 1706 : & Address of message 
562 17 3 fe 
0562 1704 3 RG Address of PDT 
0562 1705 : R5 If CLSMSGSL_RSPID(R2) is non-zero the address of a 
056 A 3 non-initialized eee pool packet rag a CDRP, 
0562 170 : (the size is determined on a per-facility basis from 
0562 1708 3 the table, FAC_SIZES, below) 
0562 1709 $ 
B20 V7i9 : Routine may destroy RO - R5 
056 ar ; N.B. the pool allocation does not check the legality of the 
0562 171 : facility code. It prevents errors during the pool allocation 
0562 1714 : request. If the facility is bad, however, the first level 
bee rat 3 dispatcher will bugcheck the system very soon. 
04 A2 DS 0562 1717 TSTL CLSMSGSL_RSPID(R2) : Is a poo! packet needed? | 
1¢ 13 0565 1718 BEQL ; Branch if no pool needed 
51 QATAF4Q 9A 0567 1719 MOVZBL B*FAC_SIZESCROI,R1 ; Get size of pool to allocate 
15 13 0Q56C 1720 BEQL 180$ :; Branch if allocation size is zero 
52 oD 33 1721 PUSHL R2 ; Save message buffer address 
00000000'GF 16 057 \is¢ JSB Ay ~ peeccmmnniabance ; Allocate needed pool 
55 52 00 0576 172 MOVL R2,R : Save packet address 
52 BEDO 0579 1724 POPL ; Restore message buffer address | 
56 50 €9 O57C 1725 BLBC RO, CNX$RCV_REJECT ; Branch on failure and reject message 
OS7F 1726 ; _ return to $ | 
08 AS 651 ~=«28B0 poze Vist MOVW R1,CDRPSW_CDRPSIZE(RS) ; Setup packet size | 
ba83 1729 180$: ; Return to 200$ 
o383 V7 9 DISPATCH CLSMSG$B_FACILITY(R2) , TYPE=B, PREF IX=CLSMSGSK_FAC_,- | 
0583 17 § <ACK,ACK_MSG>,= ; Explicit ACK message | 
0583 17 <CJF .CUFSDISPATCH>,- ; Common journal ing acility 
B28 1734 <CNX,CNXSDISPATCH>,- : Connection manager facility 
583 1735 <CSP,CSPSDISPATCH>,- ; Cluster Server Process 
B25 17 $ <LCK,LCKSDISPATCH>,=- ; Lock manager facility 
05 17 <LKI,LKISDISPATCH>,- ; GETLKI facility 
bee 738 <BLK BLKXFR_RETRY>, ~ ; Block transfer 
8208 to BUG_CHECK CNXMGRERR, FATAL 3 Unrecognized function code 
059A 1086 ; 
S59A 1743 ; Table of pool packet sizes | ; 
59A 1744 ; for automatic allocations on incoming new messages 
59A 1745 ; with response requested 
SOA 1766 ; 
5S9A 174 
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9A 1748 FAC_SIZES: 
9A 174 FAC_POOL <e 
9A 17 ,0>,- 
9A 1751 <CNX, CDRPSK_CM_LENGTH>, = 
S9A 17 ¢ <LCK,CDRP$K-CM_LENGTH>,= 
59A 17 <CJF,IRP$K_CENGTH> 
59a 1754 <LK1,CDRPSR_CM_ LENGTHD 

059A 1755 <CSP, CDRPSK~CM~LENGTH+8>, - 

O59A 1736 <OLK.0>, - 

OS9A 175 

00000008 Bea 1728 MAX_FACILITY =. = FAC_SIZES 
OeA 1760 200$: ; Come here after Rend) 09 input message is complete. 
Bea 179) ; Determine if an explici message should be sent back 
53, 8 D0 O5a2 1763 MOVL (SP)+,R3 ; Restore CSB address 
3 A 91 OSA5 1764 CMPB CSB$B “ UNACKEDMS S(R3),- ; Is it necessary to send an ACK? 
33 a3 O5AB 1765 CEBSBUREMACKLIMCRS) | 
01 18 OQSAA 1766 BGEQ SENDS KCK_MSG ; Send explicit acknowledgement 
05 QSAC 1767 RSB 
OSAD 1768 
OSAD 1769 
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4 177) -SBTTL SEND_ACK_MSG = Send an explicit ACK message 
ep 1558 p++ 
fe eee ; FUNCTIONAL DESCRIPTION: | 
SAD 1e08 : This routine sends an explicit ACK message back to the 
SAD 1777 ; remote side. 
SAD 1778 3 
5AD 1779 ; CALLING SEQUENCE: 
5AD 1780 ; | 
OSAD 1781 : BSBW —SEND_ACK_MSG 
O3AD 1788 ; IPL must be at IPL$_Scs 
QSAD 1784 ; This routine may return to the caller before the message | 
QSAD 1785 ; has been sent (if we go into a SCS wait state). 
QOSAD 1786 ; | 
OSAD 1787 ; INPUT PARAMETERS: 
OSAD 1788 ; 
QOSAD 1789 ; R3 Address of CSB 
Q5AD 1790 ; 
OSAD 1791 ; OUTPUT PARAMETERS: 
OSAD 1786 ; | 
QSAD 1793 ; None 
OSAD 1794 ;-- 
OSAD 1795 
OSAD 1796 SEND_ACK_MSG: 
34 AS DS OQSAD 1797 TSTL CSBSL_CURRCDRP(R3) ; Test whether critical section blocked 
17 12 0580 1798 BNEQ 10$ ; Branch if it is blocked and return 
0387 30 0582 1799 BSBW CNXSALLOC_CDRP_ONLY _—s: Allocate a CDRP | 
14 50 €9 0585 1800 BLBC RO,208 ; If unable to allocate, just return 
0588 1801 ; without sending the message 
4C AS CD'AF 9E 0588 1006 MOVAB 8B*50$,CDRPSL_MSGBLD(R5) ; Address of message build routine 
FO8F 30 O058D 180 BSBW § CNX$SEND_MSG~CSB : Send the message 
50 55 00 Bete 1804 MOVL R5,R ; Address of CDR 
00000000 ' GF 17 pecs 1902 JMP G*EXESDEANONPAGED : Deallocate CDRP 
32 AS 94 QO5C9 1807 10$: CLRB CSBSB_UNACKEDMSGS(R3) ; Prevent further ACK attempts 
05 beck 1338 208: RSB 
08 A2 04 90 O5CD 1810 50S: MOVB #CLSMSG$K_FAC_ACK, - ; Store ncssege facility code 
0501 1811 CLSMSCSB_FACICITY(R2) ; (N.B. no sub-function code.) 
05 0501 Isi¢ RSB 
0502 181 : 
B20 13i% ; Come here upon receiving one of these messages 
99D 1816 ACK_MSG: | 
0307-31 «~O05D2=Cé181 BRW CNXSDEALL_MSG_BUF_CSB ; Deallocate input message buffer. | 
| 
| 
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~SBTTL CNXSRCV_REJECT = Reject received message 


++ 
FUNCTIONAL DESCRIPTION: 
This routine rejects a received message, ji.e., pretends that 
this message was never seen. This is done by dropping the 
message on the floor, breaking the connection, and undoing 
the sequence number modifcation that has taken place. 
This routine may be called ONLY if the following conditions hold: 
a) en thread of execution contiguous with receipt 
of message. 
b) No messages have been sent since this message was 
received. 
CALLING SEQUENCE: 


BSBwW CNXSRCV_REJECT 
IPL must be at TPL$_SCS 


INPUT PARAMETERS: 


Re Address of received message 
R3 Address of CSB 


OUTPUT PARAMETERS: 
None 
SIDE EFFECTS: 
RO-R2 are destroyed. 


Sete Se Ge Se Ge Ge Ge Ge Be Be Be Se Se Se Se Be Be Se Se Se Se Ge Se Se Se Se Se Se Se Se Se Se 


CNXSRCV_REJECT:: 

PUSHR #*M<R3,R4,R5> 

BSBW CNXSDEALL_MSG_ BUF _CSB 
10$: DECW CS85U_RCVDSEGRACRS) 


Save registers 
Deallocate message buffer 
Fix remembered received siequence 


BEQL 3; number 

BSBB SEND_ACK_MSG ; aconeuleeee all ack*ed messages 
MOVL p ; Address of CSB 

BSBW tae dN PROTOCOL ; Request disconnect 

sy #*M<R3,RZ,R5> ; Restore registers 


| 
eT. eee 
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ae -SBTTL Principles of connection manager block transfers 


The following paragraphs describe how block transfers are performed by the 
connection manager. 


Connection manager block transfers require a cooperative effort on the 
part of two cluster members. This is very similar to (and based upon) 
the mechanisms by which SCS block transfers are accomplished. 


| 
| 
| 
A block transfer sequence is initiated by one node (which will be 
refered to as the requestor for the duration of this discussion) 
sending a message to a second node (which will be called the partner). 
This pessage signals that a block transfer operation is needed and 
describes the requestor's resources associated with the requested 
block transfer. The message must require a response from the partner 
node. When this response is received, it is assumed that the block 
transfer has been completed. 
| 


Before sending its message the requestor node must lock the virtual 
address space associated with the block transfer buffer into Goystcet 
memory and request SCS gt resources to map the buffer. he 
connection manager will allocate SCS mapping resources to map the 
buffer. However, the connection manager will not lock the virtual 
address space into physical memory nor will it fully protect its 
clients from knowing whether they are the requestor of or a partner 
to a block transfer operation. 


ony receipt of a message requesting that a block transfer take place, 
the partner node must: 


1. Make whatever preparations are goquenery to perform the block 
° 


transfer (for example, reading information from a file). 


receive) its end of the block transfer information. 


3. Using information in the message received from the requestor 
as well as information about its own mapping resources the — 
block transfer must be performed. This may either be done in 
a single operation or segmented. 
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4. If further processing is required once the transfe 
complete (for example, writing information to a fi 


s 
must be done. , 


. 
le it 


5. The respones message must be sent to the requestor node. This 
should be the Last act of the thread initiated by the incoming 
request for a block transfer operation. 


As with the requestor node, the connection aenaper will tordey some, 
@ 


2. Lock into physical gy Any pages which contain (or will 
but by no means all, the support required for the tasks listed above. | 
| 
| 


The fol Loutng peregraphs describe the connection manager routines 
assoicated with block transfers. The order of presentation follows an 
block transfer operation as it progresses from requestor to partner 
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and finally back to the requestor. 
CNXSBLOCK_XFER, or CNXSBLOCK_XFER_IRP 
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One of these routines is called by a fork process on the requestor to 
begin the block transfer sequence. Map resources are allocated for 
the reguestor's buffer, a message buffer and RSPID are allocated, the 
client's goeeags build routine is called, and a message is sent to the 
parter node. When the response message is received, control is 
returned to the location following the subroutine call. 


CNXSPARTNER_INIT_CSB 


This routine is called by the partner's received message routine once 
the need for a block transfer is recognized. It must be called before 
the thread initiated by the incoming gessege forks. A data structure 
to describe the partner's block transfer (including a copy of the 
incoming Bessone buffer and a buffer area whose size is specified as 
parameter to this routine) is allocated and initialized. The incoming 
message buffer is deallocated. Once control is returned from this 
routine, the thread initiated by the oy message may fork. 

If data structures cannot be allocaed, no return to the caller will 
eg ae Li thread will be cleaned up and dropped, the connection 

« e broken. 
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3 Many of the operations one might want to do in order to yes tere the 

; block transfer request (e.g. reading data from a local disk) will 

3 require a fork at this point. The purpose of CNXS$PARTNER_INIT_CSB is 
; to save all necessary context and release all necessary resources so 
3 that a fork can occur. 


CNX$BLOCK_READ, CNXSBLOCK_WRITE, CNXSBLOCK_READ_IRP, and CNX$BLOCK_WRITE_IRP 


One or more of these routines are called to actually cause a block 
transfer to occur. N.B. read and write are viewed from the 
perspective of the partner node; read means transfer trom requestor to 
partner and write means transfer from partner to requestor. 


Mapping resources for the partner's buffer are allocated and the block 
transfer operation is performed. This any transfer all or part of the 
requester § buffer to/from the partner. The partner need only provide 
sufficient buffer space for that portion of requestor's buffer which 

is to be transfered. There is no prohibition against both reading 

from and writing to the requestor's buffer (i.e. a modify operation, as 
viewed from the requestor node). However, at this time, there is no 
protocol proyseed or prevent ing a set of operation from being restarted 
from the beginning if a connection 


CNXSPARTNER_FINISH 


Control is transfered to this routine when the partner's portion of 
the block transfer operation has been completed. A response message 
is sent to the requestor node and the structure allocated by 
CNXSPARTNER_INIT_CSB is deallocated. 


breaks and is reestablished. 
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Now, a few words about recovery from a connection breakage. 
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EA 1980 ; 
A 13 13 When the connection between a requestor and a partner ig broken the 
A 1 § 3 partner thread is terminated with a call to the partner's error | 
EA 1 3 routine after a message is sent to the requestor asking that the 
EA 1984 ; request be retried. If the requestor has survived, it will repeat 
Yr 1? 2 3 the request. 
EA 19 5 : This form of broken connection recovery is required to accomodate the | 
EA 19 3 5 use of SCS mapping resources. The message requesting a block transfer 
SEA 1989 ; eperet ten (sent from the requestor to the partner) contains a 
EA 19 3 description of the requestor's SCS mapping resources allocated to the 
EA 133 ; requestor's block transfer buffer. In the event of a connection 
EA 1 36 3 breakage, these SCS mapping resources must be deallocated. This 
SEA 1993 ; nvalidates the description stored at the partner node and therefore 
a4 133e 3 the entire operation thread on the partner node. 
OSEA 1338 : The term ‘‘graceful’’ in the two paregraphs above is intended to imply 
SEA 1997 ; that termination of the partner node thread includes a call to a 
SEA 1998 ; client-specified error routine thus giving the client an opportunity 
OSEA 1999 ; to perform whatever client-specific cleanup operations are deemed 
OSEA 2000 ; necessary. 
OSEA 2001 ; 
OSEA 2002 ;-- 
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~SBTTL CNXSBLOCK_XFER_IR 
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FUNCTIONAL DESCRPITION: 


This routines begin a block transfer operation sequence. NOTE: a 
block transfer operation is actually a sequence of operations 
performed 24 cooperating processors/processes. These routines 
represent the beginning of that sequence. By no means, do they 
porters ol} operations involved in that sequence. Nothing in these 
routines directly controls the direction of the block transfer. It is 
eryereraee solely by the cooperating acknowledged message services 
clients. 


Calling one of these routines results in a message being sent to the 
cluster member identified by the input CSID. In addition to the usual 
goodies (both acknowledged message goodies and client goodies), the 
message contains a buffer handle for the block transfer buffer on 
this, the local, system. This node is the requestor of the block 
transfer operation. The remote node is its partner. 


The messages sent by these routines ALWAYS use a RSPID. The block 
transfer operation sequence is not complete until the partner node 
responds to the intial message sent by these routines. he 
connection between the requestor and partner nodes breaks between the 
time when the partner receives the request and when it sends its 
response, the partner send a retry request message to the requestor 
and forgets about the request. The block 

transfer resource allocation mechanisms require this method of 
operation. 


As with the other acknowledged message serivces, these routines 
control allocation of all SCS resources. Because these routines must 
allocate the SCS mapping resources to be used for the local buffer 
handle, they require specific use of CDRPS$L_VAL1, CDRPSL_VAL6 
CDORP$L_VAL7, and CDRPSL_VAL8 which would otherwise be available to 

a client routine. 
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Except as noted above, these routines operate just Like CNXSSEND_MSG. 
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CALLING SEQUENCE: 
BSBW CNXSBLOCK_XFER Initiate a block transfer 
BSBW CNXSBLOCK_XFER_IRP Initiate a block transfer with an IRP 
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This routine returns to its caller when the block transfer has been 
completed and the partner has responded to the initial requestor 
message. It returns to its caller's caller immediately. The standard 
fork process convention that the caller must not push anything onto 
the stack is in effect. The single exception is when RO contains 
SS$_NOSUCHNODE return status. This is the only synchronous return 
possible. In this case, the return address of the caller's orginal 
caller is still on the top of the stack. Im some cases, this may 
require special action on the part of this routine’s caller. 
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IPL must be at IPL$_SCS 
INPUT PARAMETERS: 


v04~001 CNxS 


@ 
xa 
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a CSID 

R Address of CDRP 

IMPLICIT INPUTS: 
CORPSL_MSGBLD must contain the address of a message build routine. 


CDRPSL_RSPID must contain valid RSPID or its high order word must be 
sere = low order word nonzero to indicate that a RSPID must be 
allocated. 


CDRPSL_MSG_BUF must contain a valid message buffer address or zero. 
=-- FOR CNXSBLOCK_XFER: 


CDRPSL_CNXSVAPTE (RS) System virtual address of the first PTE 
describing the block transfer buffer 

CDRPSW_CNXBOFF (RS) Byte offset of first byte in block transfer 
uffer 

CORPSL_CNXBCNT(RS) Number of bytes in block transfer 

CORPS$B_CNXRMOD(RS5) Access mode of requestor 


~~~ FOR CNXSBLOCK_XFER_IRP: 


CORPSL_SVAPTE(RS) System virtual address of the first PTE 
describing the block transfer buffer 
CORPSW_BOFF (RS) Byte offset of first byte in block transfer 


sO0CO C0 CD00 0D00 


CORPS$L_BCNT(RS5) Number of bytes in block transfer 
CORPSB_RMOD (RS) Access mode of requestor 


Any information that the message build routine requires should 
be in the CDRP or pointed to by pointers in the CDRP. 


This routine requires that several CDRP fields be initialized to zero. 
CNXSINIT_CDRP should be called to perform this initialization. 


OUTPUT PARAMETERS: 


RO Status 
SS$_NORMAL ==> Message successfully acknowledged 
if yonqoaer requested. response received) 
SS$_NOSUCHNODE ==> Invalid CSID 
N.B. no fork occurs in this case) 
SS$_NODELEAVE ==> Requested node is leaving the cluster 
or you are 
Re Partner's response message buffer address 
R CSB address 
R4 PDT address 
R5 CORP address 


IMPLICIT OUTPUTS: 
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CORPS VALI (RS) and CDRPSL_VAL6(R5) shrough CORPS$L_VAL8 are gestroyed 
by this routine or overlayed by implicit inputs to this routine. 


Assuming proper cooperation on the partner node, the block transfer 
buffer has either been copied to the partner node or over written with 
information from the partner node. 


SIDE EFFECTS: 
RO - R2 and R4 are destroyed. 
WARNING: 


The connection manager header in pessenes sent by this routine is 
three longwords longer than normal. This space contains the local 
buffer handle information. This tactic has been chosen so that only 
block transfer messages pay the three longword penai ty because three 
longwords is a significant amount of the space available in the 
message buffer to a connection manager client. 
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ASSUME CORPSB_RMOD-CDRPSL_IOQFL EQ IRP$B_RMOD 
ASSUME CDRPSL-SVAPTE-CDRPSL_IOQFL EQ IRP$L_SVAPTE 
ASSUME CDRPSW_BOFF-CDRPSL_IOQFL EQ IRP$W_BOF F 
ASSUME CDRPS$L_BCNT-CDRPSL_IOQFL EQ IRP$L_BCNT 
ASSUME <CDRPSQ_CNXBOFF = CORPSL_CNXSVAPTE> EQ - 
<CDRP$W_BOFF - CDRPSL_SVAPTE> 
ASSUME <CDRPSL_CNXBCNT - CDRPSL_CNXSVAPTE> EQ = 
<CDRPSL_BCNT = CDRPSL_SVAPTE> 


-ENABLE LSB 


: Wait for pool, for connection to be re-established, or for the target to be 
3; removed from the cluster. 


190$: 8SBW  CLEANUP_CDRP 
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FB99 =: 330 ; Deallocate RSPID and/or message buffer 
4C AS 00 MOVL CSBSL_CSID(R3) ,R3 ; Get 
FORK_WAIT ; On allocation failure; fork, wait, 
~~ 6 6 : BRB MEMORY _RETRY ; and try again. 
50 AS D F 900$: PUSHL CDRPSL_SAVEPC(RS) ; Setup return address 
FCDA 1 . BRW SEND_CSID_ERROR 
: CNXSBLOCK_XFER_IRP:: 
40 AS CC AS 7D F mova CDRPSL_SVAPTE(RS), - : Copy SVAPTE and BOFF. 
CORPSL~CNXSVAPTE (RS) 
46 AS D2 A5_ 00 4 MOVL CORPSL_BCNT(R5), - ; Copy BCNT. 
9 CORPS$L~CNXBCNT (RS) 
4A AS AB AS 90 9 MOVB CDRPS$B_RMOD(R5), - ; Copy RMOD. 
E CORPS$B~CNXRMOD (RS) 
: CNXSBLOCK_XFER:: 
50 AS 8EDO 4 E POPL CDRPSL_SAVEPC (RS) ; Save return PC. 
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ORY _RETRY: 
CSID_TO_CSB csb=R3, error=900$ ; Get CSB for input CSID. 


3; allocate and init BIX 


MOVZBL ax, UaT Kee LENGTH 
; Attempt to al Locate a BIX. 


R1 
GAEKESA ORONPAGED pt 
: Branch on allocation failure. 


nS CLUB Size (he : Set allocation size. 
MOVW bby CLU_BTX**x100+ =; Set structure type and subtype 


DYNSC CLU>, fields. 
CLUBTR$B TYPE(R2) 


; Get size of a BIX. 


R5,CLUBTRSL_CDRP(R2) ; Link CDRP to BTX 
ASSUME CLUBTX$S_LBOFHNDL EQ 12 
LUBTX$L_LBUFHNDL(R2) ; Zero local buffer handle area. 
CLRL CLUBTX$L_LBUF HNDL+8(R2) 
MOVAL CLUBTXSL_LBUFHNDL(R2), =; Set CDRP local buffer handle 
CORP$L_LBUFH_AD(RS) ; pointer to point co BIX area. 
MOVL CORPSL-SAVEPC(RS), - ; Move caller® s return PC to BIX 
CLUBT PC(R2) 


X3L_ SAVED 
MOVL Sate MSGBLD(RS), = ; Copy user's message build routine address 


MOVAB B*BLO_BLRXFR_HDR i; Insert message prebuild routine address 
CDRPSC_MSGBLB(R5S 


CK_XFER: 


: Allocate a buffer handle. If the allocation waits, there is a BIX on 

: the partner queue in the state REQMAP. If the connection breaks, this 

; CDRP must be taken of the waiting queue. When the onnection is restored, 
3; execution should be continued at BLOCK_XFR so that a new attempt to alloca 
3 a buffer handle will occur. 


TEST_CSB_OPEN no=10$ 
MOVB  #CDRPSK_REQ_MAP 


CDRPSB CNXSTATE(RS) 
MOVL CSB ) 


Is the CSB open? 


; Mark CDRP as belonging t 
; requestor in need of a butfer handle 
; Get CDT address in CDRP 


2 ; Buffer handle address 
), - 3; Link to tail of partner queue 


MOVL C 

INSQUE -CLUBT$L_LBOFH 
MOVL CSBSL 

MOVAL 

mOVZBL CORPS$B_CNXRMOD(R 


MOVL CORPS$L_LBUFH AD( 
REMQUE -CLUBTX$L_LBOFHN 


; Get PDT address 
R1; Get SVAPTE block address. 
R2 : Get requestor's ongcess mode. 
3; Map transfer 
: Buffer handle eaaress in BIX 
RO ; Dequeue BIX | 
| 
| 
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3; If the connection broke, these is no map at this point. 


MOVB ecpeeae REQUESTOR : Mark CDRP as belonging ¥9 
B CNASTATECRS) 3 requestor that has a utter handle 
MOVL atthe eet : Get CDT address in CDRP -=- must 
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yonn 01 CNX BLOCK XPER_IRP my By 3 445 a block tr mit} y 90:44:89 YOYSLOA. SRE JACKMSG MAR: 2 ° (17) vC¢ 
97 CORPS$L_CDT(RS) 3 e initialized for REQUESTOR 
FcBS) =: 330 : BSBW ENISSERD MSG_CSB 5 yore common send message code. 
p B 9A 4 PUSHR #*M<RO,R2,R55 ; Save registers. 
3 2c A 9 5 MOVL CDRPSL Reurk AD(R5),R1 ; Buffer handle address 
Q FG AI F 6A : MOVAB =CLUBTRSL_LBOFHNDL(R1),RO ; Address of BTX 
50 AS 28 AO OD as MOVL CLUBTXSL SAVED, PC (RO) - ;'Copy return PC | 
4C AS 2C AO 00 4 3 MOVL SLUST XSL -AZGBLDIRO) . - ; Restore user's message build routine addre 
07 gf E9 at 41 BLBC (SP) ,208 : Branch on failure -- map already deallocat 
DD 068 tg PUSHL R ; Save BIX address 
683 4 UNMAP ; Release buffer handle 
01 BA $08 44 POPR #*M<RO> ; Restore BIX address 
O0000000'GF 16 068 45 20$ JSB G*EXESDEANONPAGED ; Deallocate the BIX. 
2C AS D4 6068 $$ CLRL CDRP bt UFH_AD(R5) ; porget deallocated storage 
OD BA 06C 4 POPR #*M<RO,R2,R55 ; Restore saved registers. 
50 B85 #617 ot $3 JMP @CDRPS$L_SAVEPC (RS) ; Return to mainline code. 
Bete 50 -DISABLE LSB 
Bce 9983 
bere 3§ 3; Pre-Message build routine for block transfer requests. 
06C6 54 ; Do block transfer specific message setup and then transfer control to 
bere 2? ; user's message build routine. 
06C6 35 BLD_BLKXFR_HDR: 
50 2C AS 00 06C6 58 MOUL CORPS$L_LBUFH AD(RS5), RO ; Get local buffer handle address. 
51 F4 AO SE O6CA 2259 MOVAB -CLUBTRS$L_LBOFHNDL(RO),R1 ; BIX address 
06CE 2260 ASSUME CLUBTX$S_CBUFHNDL EQ 12 
OC A2 80 7D 06C 61 MOVQ +, = 3; Plant local buffer handle in 
06D 6¢ CLSMSG$L_REQR_BUFH(R2) 
14 A2 60 DO 06D 6 MOVL , 2 ; in message buffer. 
06D6 2264 CLSMSG$L_REQR_BUFH+8(R2) 
JM LUBTXS$L_MSGBLD(R ; Jump to user's message build routine 
2c B1 17 Debs 68 P aCLUBTX$C_MSGBLD(R1) ’ il i 
609 6 
6D9 rt) ; Enter here when a block transfer retry message is received from the partner. 
609 § ; Deallocate the message buffer and the original RSPID. 
reas oy ; Branch to reissue the request. 
609 i 3 ae: Incoming message buffer address 
6D9 73 ; R3: CSB address 
reas Pe : R4: PDT address 
6D9 id: BLKXFR_RETRY: 
55 OC A2 DO 06D9 7 MOVL CLMBLKSL_RSPID(R2),R5 ; Fetch RSPID from message 
rt 8 SIND ARSPID ATE ; Look up RDPID | 
13 0 E9 O6E 7 BLBC RO, 10$ 3; Branch on error 
55 6 BO EG 0 MOVL  RD$L_CORP(RS) RS : Fetch CDRP of requestor 
5605 (01) o91s«06E 1 CMPB = ACORPSK_REQUESTOR, -  : Test CDRP state 
6ED é RP$B_CNXSTATE(RS) 
9 1 6ED BNEQ $ ; Branch if state invalid 
1C AS 6EF & MOVL CORPSL_MSG_BUF(R5) ; Save message buffer 
FAQ F3 5 BSBW = CLEANUP_CBRP : Deallocate RSPID and/or message buffer 
FF u LOCK_x ; Branch to reissue the request 
66 1 ; BR BLOCK_XFER H h i h 
6F9 8 10$: BUG_CHECK CNXMGRERR,FATAL ; Invalid RSPID received 
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CNXMGRERR,FATAL ; CORP in unexpected state 
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ne ~-SBTTL CNXSPARTNER_INIT_CSB = Init block transfer partner 
; FUNCTIONAL DESCRIPTION: 


This routine is called by the partner's received message routine once 
the need for a block transfer is recognized. It must be called before 
the thread initiated by the incoming message forks. A BTX (or CLUBTX) 
is allocated. It contains a fixed region in which the requestor's 
CSID and other useful information is stored, a copy of the incoming 
message buffer, and additional space as requested by the arguments to 
this routine. The BTX is initialized. 


The address of the client's broken connection error routine is among 
the arguments to this routine. This address is stored in the BIX. 
Should the connection between the partner and the requestor break at 
anytime before the response rr is successfully transmitted to the 
requestor, this error routine will be called. 
ERROR ROUTINE INPUTS: 
R1 Address of requested non-paged pool buffer (0 if none) 
g Address of copy of origins message 
R CSB address (or zero if none exists) 
RS CDRP address 
ERROR ROUTINE OUTPUTS: 


RO-R5 may be destroyed 


structures are deallocated by the connection manager. 


Once control is returned from this routine, the thread initiated by 
the incoming message may fork. 


CALLING SEQUENCE: 
BSBW CNXSPARTNER_INIT_CSB 
; INPUTS: 
1 Desired size of non-paged pool buffer 
¢ Incoming message buffer address 
CSB address 
4 Error cleanup routine address 
5 CORP address 
SP) Return address for the caller 
(SP) Return address for the caller's caller 
; IMPLICIT INPUTS: 


CSBSL_CSID(R3) 
CDRPSC_SAVD_RTN(R 


; OUTPUTS: 
RO - R1 Destroyed 


310 of the node requesting this block transfer 


; Client is responsible for deallocating CDRP. ALL other 
; & CORPSL_MSG_BUF(RS) used as scratch areas 


err er rer er nee er er er eee ee er ae ae Dae nee Se ne ae ae ae ne ane a ie ae ae ane ae ae ar ae ear ar ar ar Par ae er er ar ae er er ee er er er er er oer er er er rer ae 
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= Acknowl 
CNXSPARTN 
701 
701 
701 
7 
0701 
ot 
0701 
0701 
0701 
0214 30 0701 
TA 
AS §1 7D 0704 
0708 
0708 
0098 C1 9E 0708 
070D 
00000000 ' GF 16 8798 
6A 50 €9 Q71 
0716 
A2 51 #42860 0716 
0465 8F BO O7IA 
0720 
o7s8 
A2 55 pO 0720 
A2 54 p00 0724 
Oise 
OC A2 7C O72 
14 A2 04 0728 
OC A2. ODE ores 
07 
0733 
Ores 
4C AS DO 07 
0738 
0738 
AS 03 90 0738 
bree 
0c AS DO 073C 
0741 
B3 62 OE 0741 
0745 
0745 
18 AS 4 toe 
0 1 749 
0748 
009B C2 9E 0750 
A2 54 »p0 075 
754 
7E 53 7D 07546 
30 ag 9F 0757 
3 bP PRA 
0068 8F 8 075C 
764 
764 
55 BEDO 0764 


40$: 


10$: 


wn 


R5 


BSBW 
ASSUME 
MOVQ 


MOVB 
MOVL 
INSQUE 


MOVL 
BEQL 
MOVAB 


ow 


te. 
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Address of copy of re poster's message buffer 


CSB address (unchange 


Address of allocated non-paged pool buffer 


CDRP address (unchanged) 


IMPLICIT OUTPUTS: 


NXSPARTNER_INIT_CSB: : 


CNXSINIT_CDRP 
CDRP$L_MSG_BUF EQ <CDRPS 
R1, CDRPSL-SAVD_RTN(RS) 


<CLSMSGSK_MAXMSG+ - 
CLUBTX$K_CENGTH>(R1), R1 
G*EXESALONONPAGED 

RO, 90$ 


CLUBTX$W_SIZE(R2) 


) 


CLUBTX$L-LBUFHNDL(R2), -; 
RPSL_LB AD(RS) 


CSB$L_CSID(R3), - 
CLUBTRSL_CS1D(R2) 


) = 
@CSBSL_PARTNERQBL (R3) 
CDRPSL_SAVD_RTN(RS) .R4 
40$ 


CL SSGSK_MAXMSG*CLUBTXSK 
R4, CLUBTXSL_USER_BUF (R2 
R3, -(SP) 
CLOBTXST_MSG_BUF (R2) 
ACLSMSGSK_MAXMSG 


@CDRPSL_MSG BUF (RS), - 
CLUBTXST_HSG_BUF (Re’ 


t 


; Initialize the CDRP. 
+ 4> 


_SAVD_RTN 
Save requested buffer size and 
message buffer address. 


: ‘ 


Sum message buffer, requested buffer and B 


Allocate extended BIX. 


; Branch if allocation failed. 


R1 ; Set allocation size. 
#<bYNSC CLU_BTX**x100+ -; 


Set structure type and subtype 
fields. 


Setup CDRP pointer in BIX. 
Save error action routine address. 


Zero local buffer handle area. 


Set CDRP local buffer handle 
ointer to point to BIX area. 


y we save the’ CSiD since on every connection breakage 


Save CSID of requestor in BIX. 


; (Can't save CSB, since connection 


status may change oly local setup.) 
Mark CDRP as belonging to an 

idling partner 

Get CDOT address in CDRP. 


; Queue BIX to partners queue. 


j 


; Was a buffer pogyestecs 
; Branch in no bu 


fer requested. 

Get BIX pis max message buf. size 
LENGTH(R2), - 

plus requested buffer address. 

; Save requested buffer address. 


; Save CSB & user buffer addresses. 
; Save address of copied msg. buf. 


Save CDRP address. 


; Co incoming message to 
: the BTX ° ° 


; Restore CDRP address. 


————— —4 
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53. O4A D 767 2407 MOVL 4(SP), R3 ; Get CSB address. 
54 110A Dd 768 24 8 MOVL bSSSLPDT the} R4 ; Setup PDT address. | 
2405 OCA D 26 4 MOVL CSBSL-CDT(R3), = ; Setup CDT address. 
774 2610 CORPSC_CDT(RSS | 
ae 213 DEALLOC_MSG_BUF ; Deallocate incoming message buffer. 
OC AS OB86A'CF 9E 0777 218 MOVAB W*BLOCK_FAIL, - ; Set up resumption address for | 
o770 414 CORPS. FBC (RS) : connection failure 
1C BA 077d 2415 POPR #*M<R2,R3,R4> ; Restore copied message buf. addr., 
077F ci8 ; CSB, and user buffer addresses. 
RS ; Return to caller. 
05 O77F 241 B Lt | 
SR St 
0780 2420 ; BIX allocation failure : 
144 421 ; This is not an elegant solution to BIX allocation failure, but it is 
O70 : § 3 easy. If the BTX allocation fails, break the connection. 
52. 1C AS DO 0780 2424 90$:  MOVL  CDRPSL_MSG_BUF(RS),R2 ; Message buffer address 
1C AS Bs 0784 425 CLRL CORPSL_MSG_BUF (RS) ‘ 
FE4B 0 4 4 426 SBW CNX$RCU_REJECT ; Break connection, rejecting received messa 
SE 04 CO O78A 2427 ADDL2 4#4,SP ; Drop caller's address 
50 55 DO O78D 2428 MOVL R5,R0 ; CDRP address 
00000000 ' GF 17 144 “ 3 JMP G*EXESDEANONPAGED ; Delete CDRP and return to caller's caller 


EEE 
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~SBTTL CNXSBLOCK_READ = Partner block read 
~SBTTL CNXSBLOCK_READ_IRP = Partner block read with IRP 
~SBTTL CNXS$BLOCK_WRITE = Partner block write 
-SBTTL CNXSBLOCK_WRITE_IRP = Partner block write with IRP 


++ 
FUNCTIONAL DESCRIPTION: 


a 


These routines are called on a block transfer partner node to initiate 
an actual block transfer. 


These routines control allocation of all SCS resources. Because these 
routines must allocate the SCS mapping resources to be used for the 
local buffer handle and use the supplied CDRP to perform a block 
transfer, they require specific use of CDRPS$L_VAL! through CDRPS$L_VAL8 
which would otherwise be available to a client routine. 
j 


CALLING SEQUENCE: 


BSBW CNXSBLOCK_READ (read from requestor to partner) 

BSBW CNX$BLOCK_READ_IRP (read with an IRP on the partner) 
BSBW CNX$BLOCK_WRITE (write from partner to requestor) 

BSBW CNXSBLOCK_WRITE_IRP (write with an IRP on the partner) 


INPUT PARAMETERS: 


PAERAEAAAAAAAA GAA AAAIAAAAAASAA K— 


PITOIPIPIPIPINIPIPIPINIMPYIPINININININIPIPIPINININININPININIMINININAINININY 


PRP PRR P PPP PRP PP PPP PPP PPP PPP PPP RPP PPP PPP PP PPP PPP PP PPP PPE be 


96 RS CORP address 

796 (SP) Return address for the caller 

796 4(SP) Return address for the caller's caller 

96 

796 CDRPS$L_LBUFH_AD (CDRP) address of buffer handle in BIX 

796 CLUBTXSL_CSIB( 8TX ) requestor's CSID 

796 CLUBTXST_MSG_BUF( BIX ) copy of socentog mossege buffer 

oe CLSMSG$L_REQR_BUFH( MSG ) requestor'’s buffer handle descriptor 
796 


CDRPSL_RSPID(RS) and CDRPS$L_MSG_BUF(RS) must contain zero. 


CORPSL_LBOFF must contain the offset (from the address described by 
SVAPTE - BOFF) in the local buffer at which the transfer is to begin. 
(This is provided to allow segmenting transfers.) 


CORPSL_RBOFF must contain the offset in the remote buffer at which the 

transfer is to begin. (This is provided to allow segmenting 

transfers.) 

CDORPSL_XCT_LEN must contain the number of bytes to transfer. 

=-- FOR CNXSBLOCK_READ and CNXSBLOCK_WRITE: 

CORPSL_CNXSVAPTE (RS) System: tual address of the first PTE 

describing the block transfer buffer 

CORPSW_CNXBOFF (RS) Byte offset of first byte in block transfer 
uffe 


b r 
CORPSL_CNXBCNT (RS) Number of bytes in block transfer 
CDRPSB_CNXRMOD(R5) Access mode of requestor 


Oo 

oa 
©090909 0909 090900 00 SIN NN DS DDD DDD DS ITT BB BB EEE EAA oO 8 
CONIA UE WR SO OOO NAME WIN 9 OO NAME NIN SO OO NAME WIN OOO NOA UE WN CO ODN wry 


PAPAS 
RIAPPIPIINIPINIPUNINININININPIPYPININININD 
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: IMPLICIT INPUTS: 
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73 489 ~-- FOR CNXSBLOCK_READ_IRP and CNXSBLOCK_WRITE_IRP: 
7 9 CDRPSL_SVAPTE (RS) System ytrtuat address of the first PTE 
describing the block transfer buffer 
CORPSW_BOFF (RS) pyee offset of first byte in block transfer 
uffer 
CDRPSL_BCNT(RS) Number of bytes in block transfer 
CORPSB_RMOD(R5) Access mode of requestor 


This routine ropeicee that several CDRP fields be initialized to zero. 
CNXSPARTNER_INIT_CSB correctly performs this initialization. 


OUTPUT PARAMETERS: 


RO - R1 Destroyed 
R Address of copy of requestor's message buffer 


R Destroyed 
RG Address of allocated non-paged pool buffer 
R5 CORP address 


IMPLICIT OUTPUTS: 


CDRPSL_VAL1(R5) through CDRPSL_VAL8 are destroyed by this routine or 
overlayed by implicit inputs to this routine. 


SOLUS UL ALS ay ad ak ad ak oh ak ad ak od od uy od ad aS 


C 
C 
C 
C 
C 
C 
C 
Cc 
C 
C 
C 
C 
C 
C 
Cc 
C 
C 
C 
C 
C 
C 
C 


Regyn ing proper cooperation on the partner node, the block transfer 

buffer has either been copied to the partner node or over written with 
information from the partner node. 

SIDE EFFECTS: 


RO - R4 are destroyed. 


ASSUME CDRPSL_CNXSVAPTE 
ASSUME CDRPSL-CNXSVAPTE 


A.A EAP § SD OOO NIA E WIN @§ O OO NAU EAN 0 OONOAUE WN 


PSL 
ASSUME CDRPSL_CNXSVAPTE GT CDRPSL_XCT_LEN 
ASSUME CDRPSB_RMOD-CDRPSL_IOQFL EQ IRP$B_RMOD 


SSN 
DDD DDD DDD DDD DD IDI PP PAPA A AAA AA AAA AAA AAA AAA OO 


ee yy a 


PUPUPV PV PUPP PLP SUSU SUSU SUSU TTI EE EE EE EE 


PPE PE PANNA AI WII DIPUDIPIDIPIDINID 2 2 SS | DOODOOOCOOOCOCOCWOWOOOOOVONO 


: 
0 s 
79 1 ASSUME CDRPS$L_SVAPTE-CDRPSL IOQFL EQ IRPSL_SVAPTE 
96 ; ASSUME CDRP$W-BOFF-CDRPSL_IDOQFL EQ IRP$W_BOF F 
796 ASSUME CORPSL_BCNT-CDRPSL_IOQFL EQ IRPS$L_BCNT 
796 4 ASSUME <CDRPS$@_CNXBOFF - CDRPSL_CNXSVAPTE> EQ - 
796 5 <CDRPS$W_BOFF - CDRPSL_SVAPTE> 
796 6 ASSUME <CDRPSL_CNXBCNT - CDRPSL_CNXSVAPTE> EQ = 
booe <CDRPSL_BCNT - CDRPSL_SVAPTE> 
oe 5 -ENABLE LSB 
796 1 CNX$BLOCK_READ_IRP:: 
4C AS FC37 CF 9E 0796 ‘ MOVAB W*REQUEST_DATA, - ; Setup for read function. 
79C 4 CDRPS$L_MSGBLD(RS5) 
06 11° «O079C 5 BRB 10$ ; Branch to common IRP code. 


| 
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AS 
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CNXSBLOCK_WRITE_IRP:: 
MOVAB W*SEND_DATA, 
mMOVQ SOROS SV Ar TE 
MOVL CORPSL_BCNT(R 
CORPS$L-CNXBCNT 
MOVB  CDRPSB-RMOD(RS), - 
CDRPSB_CNXRMOD (RS) 
BRB 0$ 
CNXSBLOCK_READ: : 
MOVAB W*REQUEST_DATA, - 
CDRPSL_MSGBLD(RS5) 
BRB 20$ 
14$: ADDL2 #4,SP 
15$: RSB 
CNXSBLOCK_WRITE:: 


MOVAB W*SEND 


DATA, - 
CORPS$L_MSGBLD(RS) 


—_ 
Oo 
bad 
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; Setup for write function. 

; Copy SVAPTE and BOFF. 

; Copy BCNT. 

; Copy RMOD. 

; Branch to common block xfer code. 


; Setup for read function. 
; Branch to common block xfer code. 


Eliminate callers address 
Connection is failing, exit 


; Setup for write function. 


208: DISPATCH CDRPSB_CNXSTATE(RS) ,type=B,prefix=CDRPSK_ - 


< 
<PART_IDLE,30$>, - 
<NORMAL,14$>, = 


; Idle partner 
; Return if turned into NORMAL 


> 
BUG_CHECK CNXMGRERR,FATAL ; Invalid CNX state 


error entry after the Dl 
5$: MOVL DRPSL_CDT(RS) ,R3 


PAP 6 Oe Oe Oe Os Oe Oe Be Oe Be Be 


MOVL EO TOL _AUKSTAUC (RS) -RS 


BEQL 

CMPB CSBSB_STATE(R3), - 
#CSBSR_DISCONNECT 

BNEQ 9$ 

BBC #CSBSV_REMOVED, - 
CSB$L_STATUS(R$) 

CMPL = CLUBTR$L S19 (Re 
CSBSL_CSTD(R ) 

Bea. §46ss« 40S 


If the CSID of the remote node involved in the transfer is invalid, 
bugcheck (unless the following case pertains): 


The following closes a window where a node has been removed from the 

cluster, pre-cleanup has been done, and an SCS DISCONNECT is in progress. 

A block transfer partner may initiate a request at this time because the 

error entry has not yet been called. . 

detect this case and cree the thread -- it will be returned via the 
CONNECT completes. 


The appropriate behavior is to 


Fetch COT address 

Serious error if no CDT address 

Fetch CSB address 

Serious error if no CSB address 

Is connection in DISCONNECT 
state? 

No, serious error 

If node not removed from cluster, 


Supcnes 
Double check CSID 
OK if match 


——_—————_ 


| 
| 
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v04-001 CNXSBLOCK_WRITE_IRP 4 Partner block we" “-SEP-1984 ¢ 99: #4: 8 SYSLOA.SRCJACKMSG.MAR;2 ° (19) 
Pre 604 298: BUG_ CHECK CNXMGRERR,FATAL ; Invalid CNX state 
52 2C AS OC C3 O7FA 2605 30S: SUBL3 #CLUBTX$L Tweet: ; Get BIX address 
7FF 606 CORP$L_LBOFH AD(R § of 
53 1C A2 DO O7FF 260 MOVL CLUBT TxSL L=c310¢R2 RS ; Get CSID. 
03 2608 CSID_TO_CSB error=25$ cokel : Translate C$1D to CSB. 
28 A2 8EDO fe 609 40$:  POPL™ “CLUBTXSL_SAVEO_PC(R2) : Save caller's return PC. 
610 TEST_CSB_OPEN no=15 ; Branch if CSB not open. 
54 10 a DO 6 2611 VL CSBSL_PDT(R3), R4 ; Setup PDT address. 
24 45 OCA dO A ol¢ MOVL cSsB$ LCD COT(R ds - 3; Setup CDT address. 
O8 ; o17 CORPSC_CDT( T(RSS 
20 AS 01 dO a8 F ei? MOVL #1,CORPSL_RSPID(RS) 3; Request RSPID 
56 AS 05 90 08 : $19 MOVB erporet PART_MAP ; Mark CDRP as belonging to a 
08 7 2618 CDRPSB CNXSTATE (AS) ; partner waiting for a pulter handle. 
34 AS 3C A2 GE 0837 2619 MOVAB <CLUBTR$T_MSG_BUF : Setup remote buffer handle 
th 620 CLSMSGSL Reon BUFH>(R2), - 3; address. 
083C 2621 CORPS$L_RBUFH_AD(RS) 
51 40 AS DE O083C 26 ¢ MOVAL CDRPSL_CNXSVAPTE(R5), R1; Get SVAPTE block address. 
52 4A AS 9A 0840 26 MOVZBL CDRPSB_CNXRMOD(RS), R2 ; Get requestor's access mode. 
OBeF ¢ MAP ; Map the local buffer. 
56 AS 02 90 0847 2626 MOVB #CORPSK_PARTNER, ; Mark CDRP as belonging to a 
0848 2627 CORPSB TNXSTATE (RS) : partner. 
FBOB 430 0848 2628 BSBW SEND_UNSEQ_MSG ; Send an unsequenced with a special 
084E $63 3 message build routine. 
19 50 +€9 bees Sey BLBC RO,BLOCK_FAIL 3; Branch if connection has broken 
56 A5 03 90 0851 O36 MOVB #CORPSK_PART_IDLE ; Return to idle partner CDRP CNX state. 
0855 263 CDRP$B_CNXSTATE( tRS) 
OC AS 6A'AF QE 0855 2634 MOVAB B-BLOER FAIL, = ; Set up failure return 
O85A 635 DRPSL_FPC(R5) 
50 2C AS OC C3 O85A 2636 SUBL3 #CLUBTRS$L Tw hy -  ; Get BIX address into RO 
O85F 637 DRP$L_LBOFH_AD(R5S, RO 
52 30 A0 9E O85F 2638 MOVAB CLUBTXST_MSG-BUF(ROS,.R2 ; Get requestor'’s message buffer address. 
54 24 A0 00 Babs 639 MOVL CLUBTX$L~USER_BUF (ROS ,R4 ; Get address of client requested buffer. 
28 BO 617 «2086 640 MP a@CLUBTX$C_SAVED -PC(ROS ; Return to caller. 
086A 2641 
086A 236 3 
aan 64 : Get here when connection breaks 
B6A 2644 
086A 3645 BLOCK_FAIL: i 
QOAB 30 6A 066 BSBW CNXSINIT_ CORP ; Initialize CDRP 
4C AS AO'AF 9E $0 64 MOVAB 8*50$,CDRPSL_MSGBLD(RS) ; Message build routine 
52 2c AS ne) ¢ 648 MOVL CDRPSL Cet AD(R5) ,R2 BIX address 
50 F4 A2 OF 0 76 2649 REMQUE =CLUBTRSL LBOFHNDL (2) .RO ; Reneve tree queue 
60 7C O87A 2650 CLRQ CLUBTX$L_ROFL(RO) invalidate (inke 
56 AS 00 690 7 651 MOVB #CORPSK_RORMAL : Set CNXSTATE to ORMAL 
63¢ CORPSB TONKS TATE (RS) 
FACC 30 65 BSBW EN NXSSER B : Send retry message 
- ee 2 Tag ey - 654 SUBL3 #CLUBTX$C Pty; : Get BIX address 
8 635 CDRP$L_LBOFH_AD(RSS ,R2 | 
5s 687 | ; ERROR ACTION ROUTINE INPUTS: | 
639 ; R1 Address of requested non-paged pool buffer (0 if none) | 
| 
| 
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nov lodged Mess ces = 
SBLOCK_WRITE_IRP = Partner block writ -SEP-1984 SYSLOA.SRCJACKMSG.MAR;2 
660 ; 8 Address of copy of original message 
26) 3 R CSB address 
206 : & CORP address 
664 $ ERROR ACTION ROUTINE OUTPUTS: 
666 ; RO=R5 may be destroyed 
8 668 : Client is responsible for deallocating CDRP. ALL other structures 
08 96? 3 will be deallocated here. 
ie 
52 DD § . ors PUSHL R2 3; Save BIX address. 
) a Ag dO $8 A 2674 MOVL CLUBTXS$L_CDRP(R2) ,R5 ; Fetch CDRP address 
51 24 Ad 00 O88E 2675 MOVL  § CLUBTX$L~USER_BUF(R2), Ri ; Get requested pool address. 
52 30 cO 089 o76 ADDL #CLUBTX$T_MSG BUF, R2 ; Get pointer to original message. 
0B2 16 089 67 JSB @<CLUBTX$C_ERRADDR ; Call user's error action routine. 
bEo8 43 = CLUBTXS$T_MSG_BUF>(R2) 
1 BA 0898 2680 POPR #*M<RO> ; Restore BIX address. 
00000000 ‘ GF 17 Hs et JMP G*EXESDEANONPAGED ; Deallocate it and return to caller. 
08A0 rE 
BBA one ; Message build routine for retry messages 
08 A2 07 90 O8A0 2686 50$:  MOVB M#CLSMSGSK_FAC_BLK, - =; Set up facility code 
O8A4 687 CLSMSG$B_FACICITY(R2) 
50 2C AS DO O8A4 2688 MOVL CORP$L_LBUFH_AD(RS),RO ; Address of offset in BIX 
OC A2 28 AO DO O8A8 2689 MOVL <CLUBTR$T_MSG_BUF+ - ; Set up response RSPID 
Q8AD 690 CLSMSG$L_RSPI 7° 
O8AD 2691 CLUBTX$L-LBUFHNDL>(RO), - 
O8AD 69 CLMBLKSL_RSPID(R2) 
05 O8AD 269 RSB 
OBAE 2694 
OBAE 695 -DISABLE LSB 
| 
| 
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~SBTTL CNXSPARTNER_FI 
~SBTTL CNXSPARTNER_RE 
FUNCTIONAL DESCRIPTION: 
One of these routines receives control when the partner's portion of 
the block transfer operation has been completed. A response message 
s sent to the requestor node and the BIX, allocated by 
CNXSPARTNER_INIT_CSB, is deallocated. CNXS$PARTNER_FINISH also 
deallocates the Tnput CDRP. 
CALLING SEQUENCE: 


ACKMSG = Acknowled 
Voe-061 CNX Lock wR 


AE 
AE 
AE 
AE 


'z 
OD 
zw 


SH = Complete partner's end of a block transfer 
OND = Send block transfer completed response 


ie 


BRW CNXSPARTNER_F INISH 
BSBx  CNX$SPARTNER-RESPOND 
INPUTS: 
R5 CORP address 
IMPLICIT INPUTS: 
OBAE CORPSL_LBUFH_AD(R5) Fixed offset from BIX address 
O8AE CLUBTXSL_CSIB( BTX ) requestor's CSID 
OBAE CLUBTX$T_MSG_BUF( BTX ) copy of igcening message buffer 
Beat CLSMSGS$L_RSPID( MSG ) requestor's RSPID 
ny CDRPSL_MSGBLD(RS5) must contain the address of a message build routine. 
peace CDRPSL_RSPID(RS) and CDRPS$L_MSG_BUF(R5) must contain zero. 
OBAE Any information that the message build routine requires should 
BBAe be in the CDRP or pointed to by pointers in the CDRP. 
O8AE OUTPUTS: 
OBAE 
BBAE R5 CORP address (as input) 
oe IMPLICIT OUTPUTS: 
QO8AE CORP$L_VAL8(R5) is overlayed by the client's status field CDRPSB_CLTSTS(R5). 


The response message is sent to the requestor. The BIX associated 
with this pertaec Operation is dequeued and deallocated. for. 
FINISH, the input CDRP also is deallocated and this partner 


Be Se Ge Ge Se Se Ge Se Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Se Ge Be Ge Se Ge Se Ge Se Se Ge Ge Se Se Fe Se Ge Ge Ge Se Se Ge Ge 
+ 
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SON NNN NNN NNN SIOOO + 
BBB BEE EE FENN AIEPPOPINPIPINIPIDINIDD 2 2 OOOO  MQOOOOOOOOCOCOCOWNONO -a 


AE CNXSPARTNE 
o request thread is terminated. 
ry SIDE EFFECTS: 
. The response message is sent to the requestor. 
AE oo 
AE 
AE CNXSPARTNER_FINISH:: 
99 10 af BSBB CNXSPARTNER_RESPOND ; Send response to requestor 
50 5 00 MOVL R5, RO ; Copy the CDRP address. 


v04~001 


00000000 ' GF 
56 AS 03 
2 

50 62C A 
72 Fo A 
58 A 34 A 
2c AS 

56 AS 00 
1C AO 
saneeeendl 
FASS 


CNXSPARTNER 
17 8 
B 

B 

8 

91 B 
is BD 
OF O8cy 
dO C 
cc 

cc 

D4 cc 
90 ace 
pp 0803 
16 0806 
Bape 
1 O8DE 
Q8E1 
08E1 


wled 
NER 


SN oa 
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PWN" OOO NAUE WN OOONOUS 
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oO 
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Me 
PO 


ssage Service 
ND = Send block transfe 


JMP 


16-SEP- 
“SEP=1 


G*EXESDEANONPAGED 


CRSPAR TES ere : 


#CDRPSK_PART 
RP$B_CNXSTA 
BNEQ $ 
MOVL CDRPSL_LBUFH 
REMQUE =CLUBTR tt LB0 
OVL <CLUBTXS$T-MSG 
CLSMSGSL_RSPI 
CDORPSL_RETRSP 
CLRL CDRPSL-LBUFH 
MOVB #CDRPSR_NORMA 
CORP$B_CNXSTA 
PUSHL CLUBTXSL CSID 
JSB “EXE SDEANONP 
POPR <R3> 
BRW CNRSSEND _MSG 
BUG_CHECK 


pt — “> - 


Qwmrm VoOvaITOo mo 


CNXMGRERR,FATAL ; 


1986 99:45:82 USYSLOR. SRESACKASG. RAR; 2 


ren of 


; Deallocate CDRP and return 
(to whomever). 


Test CDRP state 


Branch if no y Spgester state 
Get offset i 

Remove BIx from 
boay requestor | s RSP 
return SPID (for response). 
(This destroys the saved BTX address.) 
No more BITX 
Enter the normal state 


CPiD t tner queue 
to 


Get requestor's ta 
Deallocate the BTX 

Restore CSID 

Send the response message. 


Invalid CDRP state 
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-SBTTL CNXSALLOC_CDRP = Allocate a CDRP & Convert CSID 
-SBTTL CNXSALLOC-CDRP_ONLY = Allocate a 
-SBTTL CNXSALLOC"WARMCDRP = Allocate CDRP w/ RSPID and message buffer 
-SBTTL CNXSALLOC_WARMCDRP_CSB = Allocate warm CDRP using CSB 
-SBTTL CNXSINIT_CDRP = Initialize a CDRP 


: FUNCTIONAL DESCRIPTION: 
These routines are called to allocate CDRPs and initialize various 
€ 


CUNGALLS CORP allocates a CDRP from a non- paged po poet and initializes 
ariou elds and converts a CSID 

CNXSALLOC “CORP. ONLY performs the seme atlecation ond initialization 

but does fothing with any CSIDs. 


CNXSALLOC_WARMCDRP and CHXSALL OC _WARMCDRP_CSB attempt to allocate a 

CORP froma free List on the CSB. These CDRPs already have a response 

id. and message buffer allocated. If the free list is empty me a 

CORP is allocated from non-paged pool and initialized as befor 

However, the CDRPSL_RSPID field is set to 1 so that CNXS$SSEND MSG will 

allocate a response id. (and also a message buffer). The CSID 

oY oi ise as an argument to CNXSALLOC_WARM DRP is converted to a 
address. 


RyRSEns? COMP simply initializes the CDRP whose address is supplied in 


> CALLING SEQUENCE: 

: BSBW CNXSALLOC_CDRP = Allocate a CDRP and. Songer CSID to CSB 

; BSBW CNX$ALLOC”CDRP_ONLY = Allocate a CDRP my 

; Allocate a CDRP wR PID and msg buffer 
: BSBW CNXSALLOC-WARMCDRP = Allocate a warm CDRP using CSB address 
: BSBW CNXSINIT_CORP 

; IPL is at IPL$_SYNCH 

; INPUT PARAMETERS: 

; R3 CSID (CNXSALLOC CDRP and CNXSALLOC_WARMCDRP) 

; R3 CSB (CNXS$ALLOC_QARMCDR ) 

: R5 CDRP address CCNMSINIT PrDRP only) 

: OUTPUT PARAMETERS: 

; RO Completion code 

: CSB (ENXSALLOC CDRP and CNXSALLOC_WARMCDRP) 

: Address of CDRP 

> IMPLICIT OUTPUTS: 

: Various fields in the CDRP are initialized to zero. 

: CNXS$ALLOC eget CNXS$ALLOC_WARMCDRP_CSB, CNXSALLOC_CDORP, an “~s 


CNXSALLOC”CORP_ONLY set CDRPS$Q_CDRPSIZE to CDRPSK_CM “CENGTA o all 
newly gi CORPS. ENXSINT? CDRP does not alfer CDRPSW_ CORPSIZE. 


NAME WN (OOD NAME WIN CO OD NAME WIN 0 ONAN EW | O OONO 


POPP IPIMPIPIPINT DPIPIPINPIPPINIDIPININIPYNIPINIPINIPINIPPINPIPNIPIPIPIPINPYPIMPIPIPYPIMPPNINIMPIMNINIPININININININY oo 
©€090009090909090900 00 0900 0000 00 09 09 09 69 09 09 00 09 09 09 09 09 09 09 09 C9 00 08 SINISE 
— tt I I MQODOOOOOOCOCOC OOOO OOOOOOWDWOWODOWOODo NS Va 
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Su-00t CNXSINITCCDRP = Init velize a CORP "GrSEp=1986 8:45:99 ESYSLOA.SReaAckMeceman;2 29% $9) V0 


This assumes the size has been correctiy set by the caller and is 
consistant with tReven Prag\tecet ten of CDRPs for messages requiring 
responses in CNXSR 


If ENXSALLOE YARACOR? or CNXSALLOC_WARMCDRP_CSB was called, then a 

CDRP with RSPID and message buffer will be returned if one was 
available. If none were available, then a CDRP is returned with a 1 
in the CORPS$L_RSPID field. No status is papurnee fe indicate uhether 
or not the CDRP has a RSPID and mesenge ? caller does not 
have to be concerned about this as CN $SEND iMG. C58 fill allocate 
either or both if they are needed. 


CNXSALLOC CORP and CNXSALLOC_WARMCDRP convert a CSID address (input in 
R3) to a CSB address (output in R3). Fo F ENXSALLOC -WARMCDRP, this is 
queue. Enis peceuse Ene CSB contains the listhead for the warm CDRP 
queue. NX$ oe coacen tees similar Tape S Tana. Sty for requests 
which do not "heed a is also easier for acknowledged messes 
services clients to soeaei and handle an error from the allocate CDR 
he bags: ee it is to detect and handle an error from CNX$SEND_MSG. 

: the use of either of these two routines implies the use o 
CNXSSEND “MSG. C88 he nay of CNXSSEND_MSG. When CSID conversion is not 
relivant, usé CNX$ALLOC_CDRP_ONLY. 


COMPLETION CODES: 
SS$_NORMAL Normal successful completion 
SS$_INSFMEM Insufficient 2 esi 
peers t A a CSI pee input, it wf He we been 
ted t this error ned.) 
$S$_NOSUCHNODE invalid ‘tsb tcnxsal toc _CDRP and CNXSALLOC  UARMCDRP) 
SIDE EFFECTS: 


Ri - R2 are destroyed 


oa 


20909.0000 00 00 09 0d Cd Gd G9 Cd. Cd GD OD OD GD GD CD OD CD OD CD CD OD OD CD Cd Cd CD C9 GD CO GD Cd CD CD GD CD CO COCO CODCOD CO CDODODCDCDCDOCDOCDODODOD 60—U 


oe 


-ENABL LSB 


CNXSALLOC_WARMCDRP: : 
CS1D_TO _CSB° csb=R3, error=INV_CSID_NO_CLEANUP 


CNXSALLOC_WARMCDRP_CSB: 
DECB S6$B  WARACDRPS(R3) 3 Decr. count of warm CDRPs 


BLSS more 

REMQUE @CSBSL_WARMCDRPOFL(R3), ni : wallecate @ tree ene 
BV 10$ ; List is empty 

MOVL S*#SS$_NORMAL ,RO 


10$: BUG_CHECK CNXMGRERR,FATAL ; *** TEMPORARY 
208: INCB CSB$B_WARMCDRPS(R3) ; Adjust count bac 
PUSHL #1 ; Push contents of * CORPSE _RSPID 


CNXSINIT_CORP:: 
RSSUME CDRP$B -FIPL EQ CDRPSB_CD_TYPE+1 


OOD. DF ODN TEE UV PVPS SUPV SUSU SUSUSVSUSUSUSTSUSTSIUSUSUSISUSIOSIOSISIOSISIOSIOSIOIOIOSIOSIOION =f 
COGS C9O9 G9 G9 G9 G9 G90 I NN NI DS DS DDD OD TTT EB ES BS ES BB ENN 
OOO NA MEAN OS OD NAWUNE WN HO OD NAME WWI OS OD NA UNE WAI O OD NOAM EWN OUOODNOULS WW 
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OA AS) 0839 BF BO 0918 39 MOVW Oc 1PLS SCSOBSDYNEC. CDRP>, - ¢ get, CDRP types and 
SIE 9 CORP$B_CD_TYPE(R5)~ ta of IPL$_SCS 
20 a5 «4 C091 36 CLRL GDRPSLRSPID(RS) ; Clear istos" f 
38 1 4 + BRB 40$ : Join common code. 
9 95 CNXSALLOC_CDRP:: 
3 ; 38 CSID_ 10. CSB csb=R3, error=INV_CSID_NO_CLEANUP 
93C 98 CNX$ALLOC tala a 
90 po 93¢ 99 POSHL ~ # : Push contents of CDRPS$L_RSPID 
51 0060 8F C 9 0 30$: MOVZWL #CDRPSK ate yy He R1 ; Size of CDRP 
Go00oH? "st 18 94 901 JSB G*EX SACO NONPAGE : Allocate it 
1C 8 E 94 9 § BLBC RQ .8 $ ; Unad) to allocate it 
) a DO 094C 29 MOVL R Use from now on 
94F 2904 ASSUME CORP$B_CD_TYPE EQ C rp$u CBRPSIZE® 2 
94F 905 ASSUME DRPS$B-FIPL EQ CDRP$B_CD_TYP 
08 AS 08390060 8F DO O094F 308 VL #<<<IPC$_SCS@8>+DYNSC— ~EDRPATE>+CDRPSK. CM_LENGTH>, - 
0957 38 CORPSW =CBRPSIZ6(R5) Set size, type, an and fork IPL. 
20 AS BEDO 0957 908 POPL CORPSL— _RSPID(R5S) 3 Initialize. RePID to 
1C A 0958 2909 40$: CLRL CDRPSL~ _MSG_BUF (R5) 3; Clear MSG 
28 AS D4 O95E 910 CORPSL_RWCPTR(RS) ; and RWCPTR 
0961 911 ASSUME CDRPSK_NORMAL EQ 0 
0961 aig ASSUME CDRPSB_CNXSTATE EQ <CDRPS$W_SENDSEQNM + 2> 
0961 91 ASSUME CDRPS$L~ RETRSPID EQ <CDRPSW_ SENDSEQNM + 4> 
54 AS 7C 0961 914 CLRQ CORPS$W- SENDSEQNM(RS) 
50 01 00 0964 2915 MOVL #SS$_NORMAL ,RO 
ee a 
8E D5 0968 2918 80$: TSTL (SP)+ ; Pop CDRPSL_RSPID info from stack. 
50 0124 8F 3C O96A 2919 mov cul #SS$_INSFMEM,RO ; Set error feturn status. 
05 O96F 2920 RSB 
0970 2921 
097 9 ¢ INV_CSID_NO_CLEANU 
50 028C 8F 3c.) 6097 +] 1! yeuL osss  NOSUCHNODE ,RO 2 stenel invalid CSID in 
05 345 ase ; CNXSALLOC_WARMCDRP and CNX$ALLOC_WARMCDRP 
0976 2926 .DSABL LSS 
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-SBTTL CNXSDEALL_WARMCDRP_CSB = Deallocate a Warm CDRP using CSB 
FUNCTIONAL DESCRIPTION: 


This routine is called to deallocate a CDRP that contains 

a RSPID and a message buffer (actually in R2). If the queue 
of free CDRPs on the CSB contains less than a certain number 
of CDRPs then the CORP is inserted on the CSB free queue as 

a cee with the RSPID and message buffer. Otherwise, all 
three (CORP, RSPID, and message buffer) are deallocated. 


oro 


The RSPID must already have been recycled. This is the case 
when this entry point is called by a continuous thread of 
execution that began as the result of receiving a tag 
with a RSPID and that calls this routine to deallocate that 
message buffer and RSPID that were in the received message. 


This requirement allows the lookup and recycling of the RSPID 
to be combined into one in-line piece of code. 


CALLING SEQUENCE: 
BSBW CNXSDEALL_WARMCDRP_CSB 
IPL must be at IPL$_SYNCH 
INPUT PARAMETERS: 
Address of message buffer 
R5 Address of CDRP 
IMPLICIT INPUTS: 
CDORPS$L_RSPID contains the response id. 


SINS 


LPRARARPQLALAAAPAA APA ADA AAA AAA AA AAA AAA AAA AAA AAAA AAA AAA A AAA AAAOAA ASO 
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See Se Ge Oe Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Sse Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Sete te 
zz 
nm 


WDOOOOOOOOOOOOOOOODOOOOOOOOOOOOOOO0OONO 
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flee lela le lalallala lel elalolaleleloleleajlajlejlalelelelelelelelelelelelelelelelelelelelelelelelelelalelelealelalolal a) 


7 6 The CDT and PDT addresses are in the CSB. 
7 964 NOTE: The COT address MUST be valid; i.e. the connection must NOT 
7 965 be broken. One may NOT receive an input message on a 
7 96 connection, FORK or otherwise dela pracess ne that message 
7? 96 and then later call this routine with that message in hand_ 
7 968 (without at least verifying that the SAME connection is still 
4 3 8 valid). 
7 971 ; OUTPUT PARAMETERS: 
7 3f¢ 
7 97 None 
97 974 
44 45 IMPLICIT OUTPUTS: 
97 379 CORPSL_MSG_BUF contains the message buffer address if the 
97 3f8 CDRP iS not deallocated. 
97 97 
97 980 ; SIDE EFFECTS: 
97 981 
97 9 § RO - R2 are destroyed 
97 9 -- 
97 984 
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CNXSDEALL_WARMCORP_C 


ACKMSG k 
Het CNRSDEACL | 
CAPS C886 WARMCDRPS(R3),- ; Is List of warm CDRPs full? | 


91 
18 


) 


42 
XWARMCDORPS 
BGEQ s0s ; Yes 


: The List of free CDRPs is not full. Initialize some fields, 
; store the message buffer address in the CDRP, 
; and insert this one on the List. 


ASSUME CDRPSK_NORMAL EQ 0 

ASSUME CORPS$B_ eNNs Tore EQ <CDRPSW_SENDSEQNM + 2> 

ASSUME RPSL_ RETRSPID EQ <CDRPSW SENDSEQNM + 4> 

CLRQ RPS$W_SENDSEQNM(RS) Clear sequence number, return RSPID, 
: and set normal state 

coRPat. MSG_BUF (R5) ; Put a. buffer address in CDRP 

PSL_FPCUC(R Ensure fork thread can't resume 

) SrSBSL WARMCDRPQBL(R3) ; “Insert CORP on tree queue 

$8 _WARMCBRPS(R3) : Incr. count of warm CDRPs 


54 a5 7C 
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cD 
CD 
MOVL R2 
C CD 
(R 
Cs 


30$: 
: List of warm CDRPs is full. Deallocate message buffer, 
; response id. and CDRP. 


DEALLOC_WARMCDRP: ; Internal entry point 


; RS is address of Metta buffer 
is eee addres 
CCT +s CDT address 
: f eBst PDT be PCT address 
; RS is CORP addre 
; CORPSL “RSPID contains RSPID 


> RO-R2 destroyed, R5 invalidated. 
ASSUME CSBSL_PDT EQ CSBSL_CDT+4 
| 


ht 8 dd ed ad ed mh QOODODOOOCOCOCOOCOOOOOOCORD@OMOMoD sa 
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PUSHL R4 ; Save R4 


PUSHL R3 

Ova  CSBSL CDT(RS), R3 
DEALLOC _MSG_BOF_R 
DEALLOC-RSPID 
MOVL ~R5,RO 
JSB G*EXESDEANONPAGED 
novo (SP)+, R3 


Save CSB address 

Get address of CDT and PDT 

Deallocate message buffer 

Deallocate RSPID 

Move address of CDRP 

Deallocate CDRP 

Restore registers 
| 
i 
| 
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= Ackno ed Message Services 16-SEP-1984 00:21: AX/VMS Macro V04-00 Page 64 
CNRSDEALL “mee Bur: CSB = Deallocate a mes iat 1 9:44:89 ESYSLOA. SREJACKMSG.MAR: 2 niet 
3 ¢ -SBTTL CNXSDEALL_MSG_BUF_CSB = Deallocate a message buffer using a CSB 
yy: ¢ 3 ; FUNCTIONAL DESCRIPTION: | 
Beat gi ; This routine deallocates the message buffer whose address is in R2. 
9AC 8 ; CALLING SEQUENCE: 
9AC 3039 : 
Bone Bey ; BSBwW CNXSDEALL_MSG_BUF _CSB 
O9AC O4e ; IPL must be at IPL$_SCS (equals IPL$_SYNCH) 
SAC Bez i : INPUT PARAMETERS: 
O9AC 3045 : 
O9AC Beg : Re Address of message buffer 
O9AC 4 : 8 CSB 
O9AC 3048 : 
Q9AC 049 ; IMPLICIT INPUTS: 
O9AC 3050 ; 
O9AC 3051 ; The CDT and Aa addresses are in the CSB. 
O9AC O3¢ : $ NOTE: The CDT address MUST be valid; i.e. the connection must NOT 
O9AC 3055 ; be piahen, One may NOT receive an input message on a 
O9AC 3054 ; connection, FORK or otherwise Solay processing that message 
O9AC 3055 ; and then Later call this routine with that message in han 
O9AC 3056 : (without at least verifying that the SAME connection js still 
O9AC 3057 ; valid). 
O9AC 3058 : 
O9AC 059 : OUTPUT PARAMETERS: 
O9AC 3060 : 
O9AC 3061 : RO Status 
O9AC pes 3 SS$_NORMAL ==> deallocation successful 
O9AC 306 : 
O9AC 3064 : IMPLICIT OUTPUTS: 
O9AC 3065 ; : 
Bene Bes ; RO through R2 are destroyed; all other registers are preserved. 
O9AC 068 : SIDE EFFECTS: 
O9AC 3069 : 
O9AC 3070 ; The message buffer is deallocated. 
O9AC 3071 ;-- 
O9AC ore 
Q9AC 3073 CNXSDEALL MSG_BUF CSB: : reg! 
7E 53 7D O9AC 3074 mOv R3 ) 3 Save sensitive registers. 
9AF 79 ASSUME CSBSL_PDT EQ <CSBSL_CDT + &> | 
53 OC AS 7D Q9AF 6 mMOVQ CSB$L-CDT(R3),R 3; Get CDT and PDT addresses. 
Rees 8? DEALLOC_MSG OF _REG ; Deallocate the message buffer. | 
53 8E& 7D 0986 $79 MOVQ (SP)+, R3 ; Restore registers. 
50 601 00 0989 3080 MOVL #SS$_NORMAL ,RO ; Set success status. 
05 09BC 081 RSB 
09BD 30 $ 
098D 308 
09BD 3084 - END 
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ACKMSG - Acknowledged Message Services 16-SEP-1984 00:21: AX/VMS Macro V04-00 Page 65 ADP 
 RCKRSE table . ° ety 7 90:44:38 YOYSLOA. SRETACKMSG_MAR: 2 . (82) | VO4 
ASE = 0000000 CLMBLKSL_RSPID = 
$$BIGEST = 299 444 9 02 CLSMSG$B_FACILITY 2 ; 
SSDISPL = 906 CLSMSG$K_FAC_ACK z 4 
SSFIRST Q000059A R 02 CLSMSG$K_FAC_BLK = 7 
SSGENSW = 00 8 1 CLSMSGSK_FAC_CJF = 00 3 
$HIGH = 3 ; CLSMSGSK_FAC_CNX = 8 1 
SSLIMIT = 0000 CLSMSGSK_FAC_CSP = 
$$LOW = 00000000 CLSMSGSK_FAC_LCK = 4441 0 
SSMNSW = 00000001 CLSMSGSK_FAC_LKI = 0000000 
SSMXSW = 44444 CLSMSGS$K_MAXASG = 4 0068 
scbcBeSare, wr Seovoers ROB‘ ensent=atett™™ = HEUB808% 
= 
BLERER RETRY $0000808 R EL SMsesu-AcK sea : 990000 3 
BLOCK_FAIL 0000086A R 0 CLSMSG$W_SEQNUM = 00000000 
BLOCK-XFER Q0000065F R 0 CLUSGL_CCUSVEC aeneeeee XX 02 
BUGS_CNXMGRERR terereee = X 0 CLUSGW"MAX INDEX eeeeeeee = X 02 
CORP$SB_CD_TY = 444544444 CLUBTXSB_TYPE = 444444 
CORP$B_CNXRMOD = 0000004A CLUBTX$K_LENGTH = 00000030 
CORPSB_CNXSTATE = 00000056 CLUBTX$L_CD = 00000018 
CDRPSB_F IPL = 00000008 CLUBTX$L_CSI = 0000001C 
CORP$B_RMOD = FFFFFFAB CLUBTXS$L_ERRADDR = 00000020 
CORPSK_CM_LENGTH = 00000060 CLUBTX$L_LBUF HNDL = 0000000C 
CDORPSK_NORMAL = 00000000 CLUBTX$L_MSGBL = BRO poe SS 
CORPSK_PARTNER = 44 4 44 CLUBTX$L_SAVED_PC = 00000028 
CORPS$K_PART_IDLE = 0000000 CLUBTX$L_USER_BUF = 00000024 
CORPSK_PART = 00000005 UBTXS$L_XQFL = 00000000 
CORPSK_REQUESTOR = 00000001 CLUBTX$S_LBUFHNDL = BO 800 80C 
CORP$K_REQ_MAP = 00000004 CLUBTX$T_MSG_BU = 00000030 
CORPSL_BCNT = FFFFFFD2 CLUBTX$W-SIZE = ee: 
CORPSL_COT = 00000024 CNXS$ALLOC_CDRP F494 RG 02 
CORPSL_CNXBCNT = 00000046 CNXSALLOC_CDRP_ONLY Q00009S5C RG 02 
CORPSL_CNXSVAPTE = 00000040 CNXS$SALLOC_WARMCTDRP QOOOO8ES RG 02 
CORPSL_FPC = 0000000C CNXSALLOC_WARMCDRP_CSB et las RG 02 
CORPSL_FQFL = 00000000 CNX$BLOCK_REA 00000785 RG 8 
CORPS$L_IOMFL = FFFFFFAO CNX$BLOCK_READ_IRP 00000796 RG 0 
CORPSL_LB = 00000030 CNXSBLOCK_WRI 000007C1 RG 02 
CDRPSL_LBUFH_AD = 0000002C CNXSBLOCK_WRITE_IRP 0000079E RG 8s 
CDRPSL_MSGBL = 0000004C CNXSBLOCK_XF QO00060E RG 0 
CORPSL_MSG_BUF = 0000001C CNXS$SBLOCK_XFER_IRP QOOOOSFF RG 02 
CORPS$L_RBOF = 0000008 CNXSDEALL_MS F.C QOOOO9AC RG 02 
CORPS$L_RBUFH_AD = ia 4 CNXS$SDEALL-WARACDRP_CSB 00000976 RG 02 
CORPSL_RETRSPID = 00000058 CNXSDISC OL aeeeeere =X o¢ 
CORPS$L_RSPI = aaa tf CNXSDISPATCH eeeeenree = X 0 
CORPSL_RWCPTR = $28 H CNXSFAIL_MSG £0000 24 RG 8 
CORPSL_SAVD_RTN = 0000001 CNXSINIT-CORP 0000918 RG 
CORPS$L_SAVEP = 00000050 CNXSPARTNER_F INISH pO 00gAE RG 0 
CORP$L_SVAPTE = error nee CNXS$PARTNER_INIT CSB 00000701 RG =O 
CORPSL_XCT_LEN = 0000003C CNXSPARTNER- RESPOND 0000889 RG 0 
P$W_BOFF = FFFFFFDO CNXS$POST_CLEANUP td RG 0 | 
CORP$W_CORPSIZE = $0008 08 CNXSPRE_CLEANUP 0000000 RG 0 
CORP$W_ CNXBOF F = 00000044 CNXSRCV_MSG B08 ba BE RG 0 
CORP$W" SENDSEQNM = 00000054 CNXSRCV-REJECT 000505 RG 0 
CDRP_MOST WAIT 000302 R 02 CNXSRESEND MSGS 000264 RG | 
COTSC_AUXSTRUC s 0 f CNXSSEND_MNY_MSGS 43B RG 
CHECK-RSPID 00001D0 R 0 CNXSSEND_MSG 0000336 RG 
CJFSOTSPATCH aeneeeee xX 0 CNXS$SSEND_MSG_CSB 989 4F RG OQ 
CLEANUP_CDRP 00000186 R 0 CNXSSEND_MSG_RESP 000032D RG 0 


ACKMSG 

Symbol table 
CSB$B_REMACKCIM 
CSB$B_ Fat 

CSB$B_ oUNACKE DR SS 


CSB$B_WARMCDRPS 
CSBSK_ “DISCONNECT 
BSK_OPEN 


CSBSL-CDT 

$B =fS1D 
CSBSL-CURRCDRP 
CSBSL_PARTNEROBL 
CSBSL_ apne enOre 


CSBSL_ 
CSBSL_ “RESENDOBL 


OOon 
y 


SB 

SBSL_WARMCDRPQBL 
S58 —— 
$B 
$B 


FAC 
inv. CSI WARMCDRPS 


I 
1S ticH 


PDT$L_DEALRGMSG 
POT 


PDT$L_RCLMSGBUF 
PDTSL_REQDATA 
PDT$L-SENDDATA 


CNXSSEND_MSG_RSPID 
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00000004 
teereene 
tkereene 
etereene 
0000059A 
sae adh 13 
000009 3 
0000000 
44 484 484 


geeekere 
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PDTSL_SNDCNTHSG 
PDTSL~UNMAP 


WALL 
D_CSID_ERROR 


D-MSG_NOWAIT 
Dd. uused SEQ ai'sé 


=WODELEAVE 
~NORMA 
-NOSUCHNODE 


"or eee ieee 99:98: 


RERRREEE 
REEEAAEE 
RRRAEEEE 
RREKRAAE 
RRARRRERE 


QO0005AD 


ooooooooo 


00036 
4044 
0005C 
00036 
00035 
BOO 48 
0022 
00000 
00028 
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= Acknowledged Message Services me 4 
Psect synopsis 


=1986 19:45:50 
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! ; Psect Synopsis ! 


one ee aooweuand 


PSECT nane Allocation PSECT No. Attributes 

. . 90000000. g-} 0¢ 0.) NOPIC USR CON ABS LCL WN 

SABSS 44444 Q.) 1¢ 1.) NOPIC USR CON ABS~ LCL NOSHR 

$$$100 $00 098D 2493.) O02 ¢ 2.) NOPIC USR CON REL LCL NOSHR EXE RD 
ececce eececeoeeceeoeeccesooe} 
! Performance indicators ! 

Phase Page faults CPU Time Elapsed Time 


Initialization 3 88: 80:8 .05 00:00: “4g 
Command processing 1 00:00:00.44 00:00: 3 
petal cane ser iam? 
able sor :00:01. 7:00:06. 

428 00:00:03:31 00:09: 90:46 
aed table output 5 00:00:00.14 00:00:00.64 
Psect synopsis output 00:00:00.02 00:00:00.02 
Cross-reference output B80. 54 99 B8 : 80: 90-09 
Assembler run totals 115 00:00:24.99 00:01:39.50 


The_ working set Limit was 1950 pages. 

144309 bytes (282 pages) of virtual memory were used to buffer the intermediate co 
There were 110 pages of symbol table space fe to hold 1776 non-local and 12 
3084 source Lines were read in Pass 1, produ ing.¢ object records in Pass 2. 

44 pages of virtual memory were used to define 42 macros. 


de. 
2 local symbols. 


Macro Library name 


“$523 SDUAgE ES SVELOA OS /2CLUSTER. MLB; 1 4 
$255$DUA28 LIB.ML 25 
“$255$DUA28: Sate ae: 2 5 
TOTALS (all Libraries) 34 


1920 GETS were required to define 34 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:ACKMSG/OBJ=OBJ$:ACKMSG MSRC$:ACKMSG/UPDATE=(ENHS: ACKMSG) +EXECMLS$/LIB+LIB$:CLUSTER/LIB 


AX/VMS Macro V04-00 
SYSLOA.SRCJACKMSG.MAR;2 


T NOVEC 
URT NOVEC L 


mf 


. 


+ the NOEXE NORD -_ NOVEC BY i 
EXE RD 
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